Changine All Chart Line Colors to Same Color?

[the.ronin]

How would I change all the line colors in a chart to be the same color? Clearly, manual approach is too cumbersome.

I tried the following VBA but it is not working for me (Excel 2010):

Please Login or Register  to view this content.

Any help would be greatly appreciated. Thank you for reading.

[ChemistB]

Because NumSeries is not defined. If you know the number of lines/series, add a line
NumSeries = 52 (for example)
I'm sure that there's a way to count the series and set it up that way but my VBA is so-so at best.

[the.ronin]

Because NumSeries is not defined. If you know the number of lines/series, add a line
NumSeries = 52 (for example)
I'm sure that there's a way to count the series and set it up that way but my VBA is so-so at best.

Thanks ChenmistB. Unfortunately my VBA is even less than so-so. I actually thought NumSeries was a native function that counted the number of series in a chart. I did try to define it as you suggested but got a "Run-time error 424: Object required".

Please Login or Register  to view this content.

I've just done everything manually in the meantime but if anyone has any ideas, I would greatly appreciate them since I suspect this issue will come back to me soon.

[Chance2]

I think you are trying to hard here...

Please Login or Register  to view this content.

[the.ronin]

I think you are trying to hard here...

Please Login or Register  to view this content.

Thank you, Chance2. I am now getting a "Run-time error '9': Subscript out of range".

[Chance2]

What line is giving you the error? Is Chart 5 the name of your chart sheet?
Where are you calling the code from?

[the.ronin]

What line is giving you the error? Is Chart 5 the name of your chart sheet?
Where are you calling the code from?

Yes, I have confirmed that name of the chart even the space between "Chart" and "5". I am calling the macro simply from the macro list while I am on the sheet where the chart is located.

[Chance2]

Can you "Step Into" the macro and press "F8" to walk through the steps until the error appears?

[the.ronin]

Can you "Step Into" the macro and press "F8" to walk through the steps until the error appears?

Ah! I actually never used Step Into and F8 before so thank you for that. The error tripped on the line "Sheets("Chart 5").Activate" so it occurred to me to try typing in the sheet name rather than the chart name. That worked flawlessly!

However, now I'm wondering if I can call it onto a specific named chart instead? I tried changing "Sheets" to "Chart" to no avail.

In any event, thank you for the advice very much!

[Chance2]

I believe your original code had the correct syntax for the chart: ActiveSheeet.ChartObjects("Chart 5").Activate
As long as the ActiveSheet had the chart on it.

Glad I could help!