Invert if negative chart error

[ManvinderKaur]

Hi I am using these steps
http://www.andypope.info/charts/Invertneg.htm
to fill color if negative for my bar graph. But it works only when sheet is active. When when I close that excel workbook and open again. color of bar chart change automatically from red and green to blue and white. I could not figure out why color change automatically whenever I open my sheet again. I was trying to call following sub when sheet become active but that give error 1004 in line 2. I was trying to assign macro to chart. But that works only if I select chart. Is there any solution

'Formating of Financial saving based on current production level
Public Sub ColorBar()
    [COLOR="Red"]ActiveSheet.ChartObjects("Chart 64").Activate[/COLOR] ' error here
    ActiveChart.SeriesCollection(1).Select
    Selection.InvertIfNegative = True
    Selection.Fill.Patterned Pattern:=msoPattern5Percent
    With Selection
        .Fill.ForeColor.SchemeColor = 43
        .Fill.BackColor.SchemeColor = 3
    End With
    With Selection.Interior
        .ColorIndex = 3
        .PatternColorIndex = 43
        .Pattern = xlSolid
    End With
End Sub

http://www.excelforum.com/excel-programming/739390-invert-if-negative-chart-issue.html#post2353397

 

[ManvinderKaur]

I have attached sample chart here
http://www.excelforum.com/excel-programming/739390-invert-if-negative-chart-issue.html#post2353397

 

[Andrew Poulsom]

The technique won't work in Excel 2007, as Andy says at the bottom of the link you posted. Also the colour palette has changed.