Looping through a series of Chart data points

This has taken an age to find but turned out to be very simple, simply put
I have a ton of bar charts and want to add series name to them. to do this
manually is a pain in the @$$ so here is the magic…
Dim a As Integer
a = ActiveChart.SeriesCollection.Count
Do While a > 0
ActiveChart.SeriesCollection(a).Select
ActiveChart.SeriesCollection(a).ApplyDataLabels
ActiveChart.SeriesCollection(a).DataLabels.ShowSeriesName = True
ActiveChart.SeriesCollection(a).DataLabels.ShowValue = False
a = a – 1
Loop
Awesome….
Advertisements
This entry was posted in Uncategorized. Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s