要在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

使用您使用的方法将图表分配给c时，需要确保选择了两个或更多个形状（包括图表），并为包含图表的正确形状编制了索引。而是选择您的图表，使其成为活动图表，然后按如下所示分配图表...

Set c = ActiveChart