Font error message

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

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

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
>
>

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

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
> 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
>

You 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

I get this error message "No more new fonts may be applied in this workbook"
following a migration from Office 97 to Office 2003. This error is occurring
on a complex workbook containing 25 Worksheets, which 5 are chart worksheets,
pulling info from the other 20 sheets.

This bottleneck is halting the migration. Any help would be appreciated.

Steve


"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

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


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


Steven Noriega wrote:
> I get this error message "No more new fonts may be applied in this workbook"
> following a migration from Office 97 to Office 2003. This error is occurring
> on a complex workbook containing 25 Worksheets, which 5 are chart worksheets,
> pulling info from the other 20 sheets.
>
> This bottleneck is halting the migration. Any help would be appreciated.
>
> Steve
>
>
> "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

Thanks Debra, that helped.

"Debra Dalgleish" wrote:

> Jon Peltier has information on this problem in his Charting FAQ article:
>
>
> http://pubs.logicalexpressions.com/P...?ID=209#jon025
>
>
> Steven Noriega wrote:
> > I get this error message "No more new fonts may be applied in this workbook"
> > following a migration from Office 97 to Office 2003. This error is occurring
> > on a complex workbook containing 25 Worksheets, which 5 are chart worksheets,
> > pulling info from the other 20 sheets.
> >
> > This bottleneck is halting the migration. Any help would be appreciated.
> >
> > Steve
> >
> >
> > "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
>
>

It is not letting me to uncheck the AutoScale box. I have about 15 charts on
a worksheet.
Any help would be appreciated.
Thanks

"Debra Dalgleish" wrote:

> Jon Peltier has information on this problem in his Charting FAQ article:
>
>
> http://pubs.logicalexpressions.com/P...?ID=209#jon025
>
>
> Steven Noriega wrote:
> > I get this error message "No more new fonts may be applied in this workbook"
> > following a migration from Office 97 to Office 2003. This error is occurring
> > on a complex workbook containing 25 Worksheets, which 5 are chart worksheets,
> > pulling info from the other 20 sheets.
> >
> > This bottleneck is halting the migration. Any help would be appreciated.
> >
> > Steve
> >
> >
> > "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
>
>

Are you attempting to do all of them at once? We were only able to do so one
at a time. If the problem persists, check to see if the workbook or
worksheet is protected.

"A Eppelstun" wrote:

> It is not letting me to uncheck the AutoScale box. I have about 15 charts on
> a worksheet.
> Any help would be appreciated.
> Thanks
>
> "Debra Dalgleish" wrote:
>
> > Jon Peltier has information on this problem in his Charting FAQ article:
> >
> >
> > http://pubs.logicalexpressions.com/P...?ID=209#jon025
> >
> >
> > Steven Noriega wrote:
> > > I get this error message "No more new fonts may be applied in this workbook"
> > > following a migration from Office 97 to Office 2003. This error is occurring
> > > on a complex workbook containing 25 Worksheets, which 5 are chart worksheets,
> > > pulling info from the other 20 sheets.
> > >
> > > This bottleneck is halting the migration. Any help would be appreciated.
> > >
> > > Steve
> > >
> > >
> > > "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
> >
> >