VBA to Change the Colour in a chart

[MarkCBB]

HI there VBA Pros,

I am using the following code in excel 2010 to change the color of the first column in a column chart to dark green, however it does not work in excel 2007.

I have tried recording a macro in 2007, however it does not write the code for the color change. can anyone assist me with this?

below is the code from 2010.

Sub DarkGreen()
ActiveSheet.ChartObjects("Chart 1").Select
ActiveChart.SeriesCollection(1).Points(1).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent3
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.5
    End With
End Sub

 

[RoryA]

For 2007 you need to comment out this line:

.ForeColor.Brightness = -0.5

 

[MarkCBB]

Thank-you.