Ppt Vba | ExcelOffice

如何用vba实现将ppt幻灯片中的图片批量导出为独立的图片文件？

2018年12月31日作者：exceloffice

暂无评论

当在ppt幻灯片中插入了图片，单击图片另存为对话框，可以将图片另存为以下5种图片格式。

借助这一功能可以实现图片在BMP、GIF、JPG、PNG、EMF、WMF等图片格式之间的相互转换。

要用vba实现ppt的这项功能，需要使用shape对象的Export方法，但是这个方法被微软隐藏起来[……]

阅读全文

如何用vba给ppt幻灯片插入本地电脑上的图片？

2018年12月31日作者：exceloffice

暂无评论

要用vba给ppt幻灯片插入本地电脑上的图片，可以使用Shapes对象的AddPicture或者AddPicture2方法。

其中Shapes对象的AddPicture方法语法如下：

Function AddPicture(FileName As String, LinkToFile As MsoTriState, SaveWithDocument As MsoTriState, Left As Single, Top As Single, [Width As Single = -1], [Height As Single = -1]) As Shape

1	Function AddPicture(FileName As String, LinkToFile As MsoTriState, SaveWithDocument As MsoTriState, Left As Single, Top As Single, [Width As Single = -1], [Height As Single = -1]) As Shape

其中FileName参数为要插入的图片的[……]

阅读全文

如何用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-5c6d500f21c1289064[……]

阅读全文

如何用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

阅读全文

近期文章

关键字

功能