Autoscaling Mulitple Axes

[cdegar01]

I have many charts that have two horizontal and two vertical axes. I a
having a problem with "no new fonts may be applied to this workbook."

Does anyone know how to edit this macro so that it will disabl
autoscale for all four axes?

Thanks,

Chris


Sub DisableFontAutoscalingAllCharts()
' Disable Font Autoscaling on All Charts on Active Sheet
Dim myCht As ChartObject
For Each myCht In ActiveSheet.ChartObjects
myCht.Chart.ChartArea.AutoScaleFont = False
Next
End Su

 

[Jon Peltier]

That code should do it. Did you add axes after running the code?

There's more information on the Registry hack that turns of font
autoscaling for good on this page:

http://peltiertech.com/Excel/Charts/FixFonts.html

- Jon