vba - POWERPOINT VBA 选择一组形状并更改颜色

Question

我想在幻灯片中选择几个形状并更改它们的颜色。我努力了 ：

    Sub psu_off()
    
    Dim shp As Object
    Dim myArray() As Variant
    Dim myRange As Object
    myArray = Array("C1", "R1", "R2")
      
    Set myRange = ActivePresentation.Slides(22).Shapes.Range(myArray)
    
    For Each shp In myRange
        
        shp.Fill.ForeColor.RGB = RGB(255, 155, 244)
    Next

End Sub

上面的代码仅将颜色更改为第一个元素“C1”。看起来没有循环。问题是什么？

标签： vbapowerpoint