PowerPoint VBA批量调整指定幻灯片范围中多个形状的位置与尺寸

以下是针对Office 365 PowerPoint的VBA解决方案，可批量处理167-207号幻灯片里的Rectangle 1、8、10，统一设置位置、尺寸和字体大小：

Sub BatchAdjustShapes()
    Dim slideNum As Integer
    Dim targetShapes As Variant
    Dim shapeName As String
    Dim shp As Shape
    
    ' 指定需要处理的形状名称
    targetShapes = Array("Rectangle 1", "Rectangle 8", "Rectangle 10")
    
    ' 循环处理167到207号幻灯片
    For slideNum = 167 To 207
        ' 遍历每个目标形状
        For Each shapeName In targetShapes
            ' 检查幻灯片中是否存在该形状，避免报错
            On Error Resume Next
            Set shp = ActivePresentation.Slides(slideNum).Shapes(shapeName)
            On Error GoTo 0
            
            If Not shp Is Nothing Then
                ' 设置形状位置（单位：磅，1英寸=72磅）
                shp.Top = 72
                shp.Left = 72
                ' 设置形状尺寸，可根据需求修改
                shp.Width = 300
                shp.Height = 100
                
                ' 设置形状内文本的字体大小（仅当形状包含文本框时生效）
                If shp.HasTextFrame And shp.TextFrame.HasText Then
                    shp.TextFrame.TextRange.Font.Size = 14
                End If
            End If
        Next shapeName
    Next slideNum
End Sub

使用步骤： #

• 打开目标PowerPoint文件
• 按下Alt + F11打开VBA编辑器
• 右键点击左侧项目窗格中的当前PPT文件，选择插入 -> 模块
• 将上述代码粘贴到模块窗口中
• 根据实际需求修改代码中的数值（比如Top、Left、Width、Height和字体大小）
• 点击工具栏中的运行按钮（绿色三角图标）执行代码

关键说明： #

• 形状名称匹配：确保代码中的形状名称和PPT里的完全一致（注意空格，比如是"Rectangle 1"还是"Rectangle1"）
• 异常处理：代码中加入了形状存在性检查，避免因某张幻灯片缺少目标形状导致程序中断
• 单位说明：PPT中形状的位置和尺寸单位为磅，1英寸等于72磅，可根据需求换算调整

内容的提问来源于stack exchange，提问作者Agueda Gambino