Change VBA to all graphs, not specific one

[snowman1976]

Hello

I have this piece of code that works quite well, it changes the color of the bars based on the values. I now will have many graphs in the same sheet that I want to apply this to. How do I change it so its looking at not just 'mainchart', but instead does it to all the graphs ?



Dim chartIterator As Integer, pointIterator As Integer, _
seriesArray() As Variant


'For chartIterator = 1 To ActiveSheet.ChartObjects.Count
seriesArray = ActiveWorkbook.Sheets("GRAPHS").ChartObjects("MAINCHART"). _
Chart.SeriesCollection(1).Values


For pointIterator = 1 To UBound(seriesArray)


If seriesArray(pointIterator) < 0.95 Then
ActiveWorkbook.Sheets("GRAPHS").ChartObjects("MAINCHART"). _
Chart.SeriesCollection(1).Points(pointIterator).Interior.Color = _
RGB(255, 0, 0)

Else
If seriesArray(pointIterator) < 1 Then
ActiveWorkbook.Sheets("GRAPHS").ChartObjects("MAINCHART"). _
Chart.SeriesCollection(1).Points(pointIterator).Interior.Color = _
RGB(255, 255, 0)

Else
ActiveWorkbook.Sheets("GRAPHS").ChartObjects("MAINCHART"). _
Chart.SeriesCollection(1).Points(pointIterator).Interior.Color = _
RGB(0, 176, 80)
End If
End If
Next pointIterator

 

[GJSBED]

Re: need help - change VBA to all graphs, not specific one

Well all that has to happen is for that code to run again but for the next chart, simple way to do that is copy and paste the code in the editor and then change all references to MainChart to the name of the next chart 'Otherchart' or whatever you have called it.

Repeat until all charts are done.

 

[snowman1976]

Re: need help - change VBA to all graphs, not specific one

thanks, I was thinking of doing it that way, but then I would have to update the code each time a chart is added/deleted. I was hoping there would be a way to do this to all the charts regardless of name, etc. to avoid this future problem from happening

 

[Jon Peltier]

Re: need help - change VBA to all graphs, not specific one

First of all, use CODE tags to denote your code, not shrunken 4-point text. Easy way: select the code, and click the "#" above the post editor.

Second, here's how you can reference all those charts:

For iChart = 1 To ActiveWorkbook.Sheets("GRAPHS").ChartObjects.Count

  seriesArray = ActiveWorkbook.Sheets("GRAPHS").ChartObjects(1).Chart.SeriesCollection(1).Values

  ' ' etc. etc.

Next