change color of even-numbered chart lines to color of lines before them

[bran]

I have multiple lines on a chart (6 or more) and I would like to change the color of the lines that are from an even series (seriescollection(2),(4),(6),etc.) to the color of the lines preceding them. The color of seriescollection(2) line would be the same as the color of seriescollection(1) and the same idea for the rest.

Specifically, I cannot figure out how to just change the color of the line in vba. I try:

Activechart.Legend.Legendentries(6).Format.Line.ObjectThemeColor = msoThemeColorAccent1

but I get an error saying "Method 'line' of object 'Chart Format' failed"

 

[Jon Peltier]

All that theme color and accent and so forth gives me a headache. Something like this should work:

ActiveChart.SeriesCollection(2).Border.Color = ActiveChart.SeriesCollection(1).Border.Color

But in 2003 at least it's not too reliable. In 2003 you can use ColorIndex instead of Color, but if you try to apply the color index of a line that's using its automatic color index, you'll get the automatic color index of the second line, not of the first.

If you explicitly color the lines (which I often do myself), it becomes easier:

ActiveChart.SeriesCollection(1).Border.Color = RGB(125,0,125)
ActiveChart.SeriesCollection(2).Border.Color = ActiveChart.SeriesCollection(1).Border.Color

or

ActiveChart.SeriesCollection(1).Border.Color = RGB(125,0,125)
ActiveChart.SeriesCollection(2).Border.Color = RGB(125,0,125)

 

[bran]

Thanks, the second option was the one I was looking for.