一键调整PPT所有页面图片大小与位置宏

Sub adjust()
    Dim mySlide As Slide
    Dim myShape As Shape, i_Temp As Integer
    On Error Resume Next
    
    For Each mySlide In ActivePresentation.Slides
        For Each myShape In mySlide.Shapes
            If myShape.Type = msoPicture Then
                With myShape
                .Left = 55
                .Top = 80
                .Height = 260
                .Width = 600
                End With
            End If
        Next
    Next
End Sub

1. 打开宏

2. 输入宏的名字，点击创建

 

3. 拷贝开头的代码，之前覆盖编辑框里的所有代码

 

4. 运行=》运行子过程/用户窗体（或者直接F5） 

5. 查看效果，一键调整成功。

PS: 图片大小及位置可根据自己需求调整.Left/.Top/.Height/.Width 参数