Ppt Vba | ExcelOffice

如何用vba操作ppt幻灯片的动画？

2018年12月6日作者：exceloffice

暂无评论

要用vba操作ppt幻灯片的动画，首先要理解ppt vba中幻灯片的动画对象的层级关系。

在ppt vba 中TimeLine对象保存着所有动画的信息，属于动画的最顶级对象，然后通过TimeLine对象的MainSequence属性可以返回一个代表所有动画效果Effect对象对应的集合对象Se[……]

阅读全文

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

2018年12月6日作者：exceloffice

暂无评论

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

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

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

可以使用如下的vba通用代码:
[crayon-5c18cae7702c128317[……]

阅读全文

如何用vba批量修改ppt幻灯片图形中的文本？

2018年12月5日作者：exceloffice

暂无评论

要用vba操作ppt幻灯片图形中的文本，需要先使用Shape对象的HasTextFrame属性判断图形是否含有文本框架，然后再用HasText属性判断文本框架中是否含有文本，最后用TextRange对象的Text属性返回图形中的文本。

以下是一个批量操作ppt幻灯片中所有图形的文本的通用代码：[……]

阅读全文

如何在ppt中设置单击图形时可以执行宏或vba代码？

2018年12月5日作者：exceloffice

暂无评论

在excel中插入图形后，用鼠标右键单击该图形弹出的右键快捷菜单中有个“指定宏”命令，可以指定vba中的宏，从而实现单击图形即运行指定的vba宏代码，如下图所示：

但是在ppt中插入图形后，用鼠标右键单击该图形弹出的右键快捷菜单中并没有类似的“指定宏”命令，如下图所示：

[……]

阅读全文

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

2018年12月5日作者：exceloffice

暂无评论

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

如果要实现将某个图形置于顶层或置于底层，从而让它显示在层叠图片的上面或者隐藏在层叠图片的下面的效果，可以使用Shape对象的ZOrder方法将指定的图形置于顶层或者置于底层。

代码如下：
[cr[……]

阅读全文

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

2018年12月5日作者：exceloffice

暂无评论

如下图所示

ppt幻灯片中有6个矩形，名称分别为”矩形 N”的形式，现在想要批量将其名称换成”img N”的形式，可以使用如下的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
            i = 1
            With oSlide
                '遍历每一个图形
                For Each oP In .Shapes
                    With oP
                        sName = .Name
                        iType = .Type
                        If sName Like "*矩形*" Then
                            sName = "img" & i
                            .Name = sName
                            i = i + 1
                        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

27

28

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

i = 1

With oSlide

'遍历每一个图形

For Each oP In .Shapes

With oP

sName = .Name

iType = .Type

If sName Like "*矩形*" Then

sName = "img" & i

.Name = sName

i = i + 1

End If

End With

End Sub

结果如下图所示：

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

2018年12月5日作者：exceloffice

暂无评论

在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

End Sub

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

2018年12月5日作者：exceloffice

暂无评论

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

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

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

可以使用如下的vba代码：

Sub QQ1722187970()
    Dim oPPT As Presentation
    Dim oSlide As Slide
    Dim oCL As CustomLayout
    Dim oP As Shape
    '新的插入的图形
    Dim oNP As Shape
    '当前ppt演示文稿
    Set oPPT = PowerPoint.ActivePresentation
    With oPPT
        '遍历每一个幻灯片
        For Each oSlide In .Slides
            With oSlide
                '遍历每一个已有的矩形
                For i = 1 To 6
                    Set oP = .Shapes("矩形 " & i)
                    Set oNP = .Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)
                    With oNP
                        sName = "矩形 " & 6 + i
                        .Name = sName
                        .Left = oP.Left
                        .Top = oP.Top
                        .Width = oP.Width
                        .Height = oP.Height
                        .TextFrame.TextRange.Text = "循环图片" & 6 + i
                    End With
                Next i
            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

27

28

29

30

31

Sub QQ1722187970()

Dim oPPT As Presentation

Dim oSlide As Slide

Dim oCL As CustomLayout

Dim oP As Shape

'新的插入的图形

Dim oNP As Shape

'当前ppt演示文稿

Set oPPT = PowerPoint.ActivePresentation

With oPPT

'遍历每一个幻灯片

For Each oSlide In .Slides

With oSlide

'遍历每一个已有的矩形

For i = 1 To 6

Set oP = .Shapes("矩形 " & i)

Set oNP = .Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)

With oNP

sName = "矩形 " & 6 + i

.Name = sName

.Left = oP.Left

.Top = oP.Top

.Width = oP.Width

.Height = oP.Height

.TextFrame.TextRange.Text = "循环图片" & 6 + i

End With

Next i

End With

End Sub

阅读全文

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

2018年12月5日作者：exceloffice

暂无评论

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

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

在ppt vba中，所有的图形的相关操作都可以用Shape对象来实现。

如果要将一个ppt演示文稿中的特定某个类型的图形的尺寸、大小、位置都统一调[……]

阅读全文

如何在ppt中用vba实现图形的布尔运算？

2018年9月9日作者：exceloffice

暂无评论

布尔运算是数字符号化的逻辑推演法，包括联合、相交、相减。

在图形处理操作中引用了这种逻辑运算方法以使简单的基本图形组合产生新的形体，并由二维布尔运算发展到三维图形的布尔运算。

在PPT幻灯片中，当选中2个以上（含2个）图形时，在“绘图工具”选项下的“格式”下的“插入形状”组中可以使用“合[……]

阅读全文

如何用vba操作ppt幻灯片的动画？

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

如何用vba批量修改ppt幻灯片图形中的文本？

如何在ppt中设置单击图形时可以执行宏或vba代码？

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

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

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

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

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

如何在ppt中用vba实现图形的布尔运算？

近期文章

功能

近期文章

关键字

功能