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

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

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

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

如果要将一个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
                            .Width = 50
                            .Height = 50
                        End If
                    End With
                Next
            End With
        Next
    End With
End Sub

以上代码举例演示了如何统一调整ppt演示文稿中所有幻灯片中的椭圆形的尺寸大小。

       

发表评论