PowerPoint VBA选中多形状改色仅首个生效问题排查

核心原因 #

仅C1形状被修改的核心原因是：传入Shapes.Range的名称数组中，除C1外的R1、R2不存在于第22页幻灯片的顶层形状集合中。PowerPoint的Shapes.Range方法遇到无效名称时不会抛出错误，只会返回从第一个匹配到的有效形状开始的范围，若后续名称全部无效，最终myRange里只会包含C1一个元素，因此循环只会修改C1的填充色。
常见的无效名称场景：

• R1、R2是组合形状内的子形状：组合的子元素不属于幻灯片顶层Shapes集合，直接传名称无法被Shapes.Range捕获
• 形状名称存在不可见差异：比如前后带有空格、实际存在下划线后缀（如R1 、R1_1）

调试方法 #

先运行下方代码，输出第22页所有顶层形状的名称，确认是否存在R1、R2：

Sub checkShapeNames()
    Dim shp As Shape
    For Each shp In ActivePresentation.Slides(22).Shapes
        Debug.Print shp.Name
    Next
End Sub

运行后按Ctrl+G调出VBA编辑器的立即窗口，即可看到所有顶层形状的名称，和你填写的R1、R2对比确认即可。

优化代码 #

如果确认所有名称都有效，不需要循环遍历ShapeRange，可以直接批量设置属性，代码更简洁高效：

Sub psu_off()
    Dim myArray() As Variant
    myArray = Array("C1", "R1", "R2")
    ActivePresentation.Slides(22).Shapes.Range(myArray).Fill.ForeColor.RGB = RGB(255, 155, 244)
End Sub

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