Gemma,

I could only get it to work by selecting:

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
ActiveChart.SeriesCollection(1).Points(9).DataLabe l.Select
With Selection
.Font.Size = 10
End With

Would love to learn how to do this without selecting (use this macro all the
time).

steve

"Gemma Batterby" wrote in message
...
I am trying to set up a command button which upon clicking
allows all the data labels of a pie chart to be set to a
certain font size.
The code is as follows:

Worksheets("Callouts Classification").ChartObjects
(chartNum).Chart.SeriesCollection(1).DataLabels
(labelNum).Font.Size = 6

where chartNum and labelNum are obviously variables. The
pie charts are created using the chart wizard and I am
simply manipulating them using some VB code. When the
code is run from the VB environment it works fine but when
I run the code by clicking the command button I get an
error message saying:

Runtime Error 1004
Unable to set the Size property of the Font class

Any ideas as to why this might be when clicking the
command button??