VBA to add string after data labels in pie chart

[Rudi]

Hi,

The code to add a data label to the series is as follow:

Code: Select all

ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
        False, HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:= _
        False, ShowValue:=True

Is there a way to add a string behind the value?
I foresee it will need to be looped?

TX

[HansV]

Do you want to add a fixed string? If so, you may be able to set the NumberFormat property of the DataLabels object to display the string.
Or does the string vary from data point to data point?

[Rudi]

It is a fixed string yes; simply "AAA"
So a data label of value 123 would look like this "123 AAA"

Can a number format property take a string?

[HansV]

Yes; you have to enclose the string in double double quotes, like this:

Code: Select all

ActiveChart.SeriesCollection(1).DataLabels.NumberFormat = "0 ""AAA"""

[Rudi]

Many TX :)
I'll test it out.

[Rudi]

Quick feedback...
The code with your addition worked great.

[HansV]

Thanks!