want change selected powerpoint chart series color in vba

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

The syntax seems to be correct. You simply need to make sure that you select your chart before running the macro. Otherwise, you'll get a run-time error "Selection (unknown member): Invalid request. Nothing appropriate is currently selected."