Change fonts of chart legend - different results on 2 computers

  • Thread starter Thread starter Thomas Wieser
  • Start date Start date
T

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
 
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/
_______
 
Back
Top