Changing Decimal Points on Data Labels with VBA

[Peter Davison]

Hi, me again
I have a chart that has been copied in from another file through VBA code, in the source file the data labels are set to 1 decimal point, but when it is copied in the data labels go to many decimal points.
Is there a way of stopping this so they remain at 1 decimal point or can I use code to change the decimals to 1.
As the number of series are variable I would like to use some code that can do all series together.
The code below I noticed is just for one series.
ActiveChart.SeriesCollection(1).DataLabels.NumberFormat = "0.00%"
Any help would be great.
Thanks

 

[Peter Davison]

By the way the graph I am copying from another file is a Pivot Chart