PPT VBA如何选中特定类型形状？批量修改矩形样式求助

原代码的问题 #

• 每次执行shp.Select会取消之前的选中状态，最后只会选中最后一个符合条件的形状，没法批量选中
• 只判断了形状类型是矩形（Type=1），没筛选黑色边框+红色填充的目标形状
• 代码里的sld变量完全没用，属于冗余代码

方案1：用VBA直接批量修改样式（最省心） #

直接在VBA里完成样式修改，不用手动操作：

Sub 修改指定矩形样式()
    Dim currentSlide As Slide
    Dim shp As Shape
    
    ' 遍历所有幻灯片
    For Each currentSlide In ActivePresentation.Slides
        ' 遍历当前幻灯片的所有形状
        For Each shp In currentSlide.Shapes
            ' 筛选：矩形 + 黑色边框 + 红色填充
            If shp.Type = msoShapeRectangle Then
                ' 判断边框颜色（黑色的RGB是0,0,0）
                If shp.Line.ForeColor.RGB = RGB(0, 0, 0) Then
                    ' 判断填充颜色（红色的RGB是255,0,0）
                    If shp.Fill.ForeColor.RGB = RGB(255, 0, 0) Then
                        ' 设置粉色边框（这里用的是浅粉色，可根据需求改RGB值）
                        shp.Line.ForeColor.RGB = RGB(255, 192, 203)
                        ' 设置蓝色填充（这里用的是天蓝色，可根据需求改RGB值）
                        shp.Fill.ForeColor.RGB = RGB(135, 206, 235)
                    End If
                End If
            End If
        Next shp
    Next currentSlide
End Sub

方案2：用VBA批量选中目标形状（符合你的两步思路） #

如果还是想手动修改样式，用这个代码选中所有目标矩形，之后直接在PPT界面改边框和填充：

Sub 选中指定矩形()
    Dim currentSlide As Slide
    Dim shp As Shape
    Dim isFirstSelect As Boolean
    
    isFirstSelect = True
    
    ' 遍历所有幻灯片
    For Each currentSlide In ActivePresentation.Slides
        ' 遍历当前幻灯片的所有形状
        For Each shp In currentSlide.Shapes
            ' 筛选：矩形 + 黑色边框 + 红色填充
            If shp.Type = msoShapeRectangle Then
                If shp.Line.ForeColor.RGB = RGB(0, 0, 0) And shp.Fill.ForeColor.RGB = RGB(255, 0, 0) Then
                    ' 第一个形状直接选中，后续形状按住Ctrl加选
                    If isFirstSelect Then
                        shp.Select
                        isFirstSelect = False
                    Else
                        shp.Select (msoFalse)
                    End If
                End If
            End If
        Next shp
    Next currentSlide
End Sub

使用说明 #

1. 打开PPT，按Alt + F11打开VBA编辑器
2. 插入模块：右键左侧的PPT文件名 → 插入 → 模块
3. 把上面的代码粘贴进去，按F5运行即可

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