Runtime Error with Pie Chart Coloring Macro

[chrisdazzo]

Very new to VBA Macros, would really appreciate some help.

Basically, I found (and tweaked to the best of my limited ability) the code below so that when I select a pie chart and run the macro "PieColors", it colors slices according to their labels. It seemed to work most of the time for the last few weeks, until this week.

Suddenly one or two of slices in the list below ("none" for example) won't change color when the macro is run. I went back into the VBA editor and got the error, "Run-time error '91': Object variable or With Block variable not set" in the line beginning with "NumPoints = ActiveChart...". In my limited scope of knowledge of programming, I know that means I didn't define a variable somewhere (duh, right?), but I don't know what I need to do to fix it.

Please Login or Register  to view this content.

Any help would be greatly appreciated. Thank you!

[moonsaga]

Did you select the chart before running the macro? also are all the case names in the chart you are trying to run the macro against?

[chrisdazzo]

Yes I did I knew I should've mentioned that in my initial post.

The case names in the test chart are: "cpc", "banner", "organic", "(none)", "referral", and "Homepage Slider".

[coolblue]

Either there is no active chart or it doesn't have a series(1)
Just double check by inserting these lines before the line that errors

Please Login or Register  to view this content.

Both messages need to be False

[chrisdazzo]

There is no Count property for Points objects. That is why you have the error. At least I can't see one in the help

So humor me here, how would I fix this to count the number of points, run the color test, etc.?

[coolblue]

Sorry, my mistake!
Check my edited post.

[chrisdazzo]

Both turned up false.

[coolblue]

OK what about this...

MsgBox ActiveChart.SeriesCollection(1).Points.Count

[coolblue]

Sorry, I'm having a bad day... it should have been

Please Login or Register  to view this content.

And also add

Please Login or Register  to view this content.

[chrisdazzo]

MsgBox ActiveChart.SeriesCollection(1).Points.Count returns "6".

The above returns "False", "False", and "False".

[coolblue]

MsgBox ActiveChart.SeriesCollection(1).Points.Count returns "6".

I which case, if it is the same as the code you pasted above and you inserted the message boxes just before the line throwing the error, it can't throw the error.

Its like this?

Please Login or Register  to view this content.

Just to be proper, try declaring your variables properly, at least declare

Please Login or Register  to view this content.

I'm at a loss...

[chrisdazzo]

It's exactly the same as what was posted above.

Oh well, thanks for trying to help :/

[Andy Pope]

It would probably help if you posted an example workbook which illustrated the problem.

See attached.

Please Login or Register  to view this content.

[chrisdazzo]

This works great, thank you for taking the time, Andy!

I'll be sure to post a working example next time, thanks for the tip.