LinkBack URL
About LinkBacksYou should place the code in a standard code module.
And then run the macro.
I have two extra lines so information should be displayed in the
statusbar. See inline changes.
Cheers
Andy
Phil Hageman wrote:
> Andy, Thanks for your reply - appreciate the help.
>
> Wasn't sure where to put the code, I have it in Module 1, This Workbook, and
> one of the Worksheets "Remediation," which I'm using to test the code's
> effect. So far, there is no change (I tried each one separately with no
> results). All worksheets still have "Auto scaling" checkboxes checked.
> Also, when I try to create a copy of the "Remediation" worksheet (to create a
> new issues worksheet), I get the error message again. How do I use this code?
>
> Thanks, Phil
>
> "Andy Pope" wrote:
>
>
>>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
Application.statusbar = "Processing " & mysht.name
>> 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
application.statusbar = false
>>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
>>
--
Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
Register To Reply
Bookmarks