Presentation | ExcelOffice【微信公众号：水星Excel】

如何用vba操作ppt的幻灯片母版？

2019年11月3日作者：水星Excel
1,822 次浏览暂无评论

在PPT中，通过幻灯片母版可以批量设置幻灯片的一些共同元素。

在vba中Master对象表示幻灯片母版，可以通过Presentation对象的SlideMaster属性访问Master对象。

在M[……]

阅读全文>>>
如何彻底解决用vba批量删除ppt幻灯片中的图形等对象？

2019年3月20日作者：水星Excel
2,238 次浏览暂无评论

在ppt vba中如果要循环批量删除幻灯片中的图形等对象，会遇到很多困难。

比如当执行如下For Each … In 的vba代码删除ppt中第一张幻灯片中的所有图片后，会发现并没有将图片全部删除。[……]

阅读全文>>>
如何用vba根据ppt幻灯片中的已有图形插入生成一个N×M的相同图形？

2018年12月6日作者：水星Excel
967 次浏览暂无评论

如下图所示为ppt幻灯片中已有的一个椭圆形：

现在希望快速地在当前幻灯片中插入一个75个同尺寸大小的椭圆形，如下图所示排列：

这是一个典型的根据已有图形插入一个N×M型图形的问题[……]

阅读全文>>>
如何用vba实现ppt幻灯片中层叠图形的置于顶层或置于底层命令？

2018年12月5日作者：水星Excel
1,878 次浏览暂无评论

如下图所示的ppt幻灯片中有12个矩形，其中6个矩形被其中6个矩形层叠覆盖在底层。

如果要实现将某个图形置于顶层或置于底层，从而让它显示在层叠图片的上面或者隐藏在层叠图片的下面的效果，可以使用S[……]

阅读全文>>>
如何用vba给ppt幻灯片中的同类型的图形批量重命名?

2018年12月5日作者：水星Excel
1,290 次浏览暂无评论

如下图所示

ppt幻灯片中有6个矩形，名称分别为”矩形 N”的形式，现在想要批量将其名称换成”img N”的形式，可以使用如下的vba代码：
[crayon-5f8feb24b34a774572793[……]

阅读全文>>>

如何用vba批量删除ppt幻灯片中同类型的所有图形？

2018年12月5日作者：水星Excel

1,402 次浏览暂无评论

在ppt中，一切皆图形。

有时候我们需要批量删除指定形状的图形，可以使用如下的vba代码:

Sub QQ1722187970()
    Dim oPPT As Presentation
    Dim oSlide As Slide
    Dim oCL As CustomLayout
    Dim oP As Shape
    '当前ppt演示文稿
    Set oPPT = PowerPoint.ActivePresentation
    With oPPT
        '遍历每一个幻灯片
        For Each oSlide In .Slides
            With oSlide
                '遍历每一个图形
                For Each oP In .Shapes
                    With oP
                        sName = .Name
                        iType = .Type
                        '批量删除所有椭圆形
                        If sName Like "*椭圆*" Then
                            .Delete
                        End If
                    End With
                Next
            End With
        Next
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

Sub QQ1722187970()

Dim oPPT As Presentation

Dim oSlide As Slide

Dim oCL As CustomLayout

Dim oP As Shape

'当前ppt演示文稿

Set oPPT = PowerPoint.ActivePresentation

With oPPT

'遍历每一个幻灯片

For Each oSlide In .Slides

With oSlide

'遍历每一个图形

For Each oP In .Shapes

With oP

sName = .Name

iType = .Type

'批量删除所有椭圆形

If sName Like "*椭圆*" Then

.Delete

End If

End With

Next

End With

Next

End With

End Sub

[……]

阅读全文>>>

如何用vba给ppt幻灯片中插入同尺寸大小的图形？

2018年12月5日作者：水星Excel
1,183 次浏览暂无评论

在ppt中，经常需要插入图形。

有时候需要基于幻灯片中已有的图形再插入相同尺寸大小的同样的图形。

如下图所示为ppt幻灯片中已有的6个矩形，现在需要再插入6个矩形，形成层叠的效果。

[……]

阅读全文>>>
如何用vba把ppt幻灯片中的所有图形的尺寸大小批量统一调整？

2018年12月5日作者：水星Excel
1,996 次浏览暂无评论

在ppt中，所有的操作都是在图形中完成的。

在ppt中，可以插入的图形种类有很多，可以是自选图形、任意多边形、OLE 对象或图片等等。

在ppt vba中，所有的图形的相关操作都可以用Shape对[……]

阅读全文>>>
如何用vba操作ppt演示文稿？

2018年8月27日作者：水星Excel
4,803 次浏览暂无评论

ppt和excel、word一样都可以用vba操作。

正和excel中有Excel→Workbook→Worksheet→Range这样的父子关系对象一样。

ppt也有PowerPoint→Pre[……]

阅读全文>>>
如何用vba批量修改ppt幻灯片的字体格式？

2018年4月2日作者：水星Excel
2,438 次浏览暂无评论

用vba设置ppt的幻灯片的字体名称与用vba设置excel或者word的字体名称有些不同。

当要设置幻灯片的字体时，Font对象提供了以下5个设置字体名称的属性：

Name 属性用于返回或者设置[……]

阅读全文>>>