Change fonts of chart legend - different results on 2 computers

[Thomas Wieser]

Hi,

I try to set the font values of a chart legend. On my computer it works
fine - on a second it does not do anything, without any error messages.
My code:


For i = 1 To [...].DataLabels.Count

Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).DataLabels(i) _
.Font.Size = 50

Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).DataLabels(i) _
.Font.ColorIndex = 33

Next


Does anybody see the problem with this code? In general, would it be
better to reference the chart with the ActiveChart object? Are there
problems with ActiveChart?



Regards, Thomas

 

[Jon Peltier]

Thomas -

Data labels are not the same thing as the legend. I hope that's not
causing your troubles. If you have no data labels, you'll never go
through the loop.

The syntax looks okay. You have a choice of:

ActiveChart.SeriesCollection(1).DataLabels(1).Font.Size = 36
ActiveChart.SeriesCollection(1).Points(1).DataLabel.Font.Size = 36

The difference between ActiveChart and a more fully referenced chart
depends on what you're doing. I used activechart here because it was
less typing, but fully referenced code doesn't choke if you forget to
select the chart first.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______