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

最新推荐文章于 2024-11-13 18:12:28 发布

原创最新推荐文章于 2024-11-13 18:12:28 发布 · 7.7k 阅读

21 ·

CC 4.0 BY-SA版权

文章标签：

#开发语言 #windows

该博客介绍了一个VBA宏代码，用于批量修改PowerPoint演示文稿中所有图片的位置和大小。用户只需运行宏，即可一键将图片统一设置为.Left=55, .Top=80, .Height=260, .Width=600的坐标和尺寸。这个宏对于需要快速调整大量图片布局的工作非常实用，可以根据个人需求调整参数。

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. 打开宏