Charts, Help!

[cdegar01]

Can anyone tell me what I'm doing wrong? I'm trying to set the font size for the axis ticklabels to 6 for every chart in the active sheet.

Sub SetFontSizeAllCharts()
Dim myCht As ChartObject
For Each myCht In ActiveSheet.ChartObjects
myCht.Chart.TickLabels.Font.Size = 6
Next
End Sub

I get errors! Help!

 

[CraigM]

Try this out:

Sub SetFontSizeAllCharts()
Dim myCht As ChartObject
For Each myCht In ActiveSheet.ChartObjects
myCht.Chart.Axes(xlValue).TickLabels.Font.Size = 6
myCht.Chart.Axes(xlCategory).TickLabels.Font.Size = 6
Next
End Sub

 

[cdegar01]

I changed the code to the following:

Sub SetFontSizeAllCharts()
Dim myCht As ChartObject
For Each myCht In ActiveSheet.ChartObjects
myCht.Chart.Axes(1).TickLabels.Font.Size = 6
Next
End Sub

But I get an error saying "Unable to get the TickLabels property of the Axis class," when I run it on a page that has about 150 charts. It works for pages with about 7 charts. What am I doing wrong?