Record a macro while you change one chart, then try to include the working
bits of the recorded macro into a loop:
Dim chob As ChartObject
For Each chob In ActiveSheet.ChartObjects
With chob.Chart
' working bits in here, referenced to chob.Chart rather than to
ActiveChart
End With
Next