Hi Phil,

This mod will do all chartsheets and charts on worksheets.

Sub FixAllChartFonts()
Dim myCht As ChartObject
Dim mySht As Object

For Each mySht In ActiveWorkbook.Sheets
If TypeName(mySht) = "Chart" Then
mySht.ChartArea.AutoScaleFont = False
ElseIf TypeName(mySht) = "Worksheet" Then
For Each myCht In mySht.ChartObjects
myCht.Chart.ChartArea.AutoScaleFont = False
Next
End If
Next
End Sub

Cheers
Andy

Phil Hageman wrote:
Debra,

Was wondering - John suggests a VBA fix for the active chart, and active
sheet (below). Could this code be modified to include the entire workbook?
Where would it be put? Would save a lot of work - I'm building a workbook
with about sixty charts...and this problem emurged when I had 12 worksheets
(24 charts) already created.

Altering the registry is not an option for me - I'm operating on a network
that does not allow such changes - it simply changes things back at the end
of the day.

Sub FixAllChartFonts()
Dim myCht As ChartObject
For Each myCht In ActiveSheet.ChartObjects
myCht.Chart.ChartArea.AutoScaleFont = False
Next
End Sub

"Debra Dalgleish" wrote:


Jon Peltier has information on this problem in his Charting FAQ article:


http://pubs.logicalexpressions.com/P...?ID=209#jon025

and at his web site (use this updated link instead of the one in his
article):

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


Phil Hageman wrote:

When trying to make a copy of a worksheet containing two charts, the
following message comes up: "No more font may be applied to this workbook."
On one of the charts, three axes, two Y and one X, are resized by Excel.
When trying to resize the axes fonts down again, the message appears again.
How do I get around this issue?

Thanks,
Phil


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html



--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info