想要更改 vba 中選定的 powerpoint 圖表系列顏色

Question

Dim p As Point
Dim s As Series
Dim c As Chart

Set c = ActiveWindow.Selection.ShapeRange(1).Chart
Set s = c.SeriesCollection(1)

With s
    .ChartType = xlColumnClustered
    .Format.Fill.ForeColor.RGB = RGB(25, 26, 24)
End With    

End Sub

Answer 1

語法似乎是正確的。 在運行宏之前，您只需要確保您的圖表是 select。 否則，您將收到運行時錯誤“選擇（未知成員）：無效請求。當前未選擇任何合適的內容。”