#1   Report Post  
Phil Hageman
 
Posts: n/a
Default 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
  #2   Report Post  
Debra Dalgleish
 
Posts: n/a
Default

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

  #3   Report Post  
Phil Hageman
 
Posts: n/a
Default

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


  #4   Report Post  
Andy Pope
 
Posts: n/a
Default

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
  #5   Report Post  
Phil Hageman
 
Posts: n/a
Default

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



  #6   Report Post  
Andy Pope
 
Posts: n/a
Default

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
  #7   Report Post  
Phil Hageman
 
Posts: n/a
Default

Thanks, Andy - this works perfectly.

"Andy Pope" wrote:

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

  #8   Report Post  
Andy Pope
 
Posts: n/a
Default

You're welcome. Thanks for letting us know.

Cheers
Andy

Phil Hageman wrote:
Thanks, Andy - this works perfectly.

"Andy Pope" wrote:


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


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
  #9   Report Post  
Phil Hageman
 
Posts: n/a
Default

Andy, A new wrinkle - when trying to format data labels for color, the error
message comes up again. I checked every font format and all AutoScale boxes
are unchecked. I am not allowed to change font colors. Any idea what is
causing this?

Regards, Phil

"Andy Pope" wrote:

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

  #10   Report Post  
Andy Pope
 
Posts: n/a
Default

I assume you have saved the workbook since running autofont fix.
But other than that I can't think of anything new to suggest.

If you want to email me the file directly I will take a look see.

Cheers
Andy

Phil Hageman wrote:
Andy, A new wrinkle - when trying to format data labels for color, the error
message comes up again. I checked every font format and all AutoScale boxes
are unchecked. I am not allowed to change font colors. Any idea what is
causing this?

Regards, Phil

"Andy Pope" wrote:


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


--

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


  #11   Report Post  
Phil Hageman
 
Posts: n/a
Default

Sent to

"Andy Pope" wrote:

I assume you have saved the workbook since running autofont fix.
But other than that I can't think of anything new to suggest.

If you want to email me the file directly I will take a look see.

Cheers
Andy

Phil Hageman wrote:
Andy, A new wrinkle - when trying to format data labels for color, the error
message comes up again. I checked every font format and all AutoScale boxes
are unchecked. I am not allowed to change font colors. Any idea what is
causing this?

Regards, Phil

"Andy Pope" wrote:


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


--

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

  #12   Report Post  
Kris29
 
Posts: n/a
Default

Eagerly waiting to see how this turns out. My document doesn't have the
autoscale marked. And I keep getting this same error.

"Phil Hageman" wrote:

Sent to

"Andy Pope" wrote:

I assume you have saved the workbook since running autofont fix.
But other than that I can't think of anything new to suggest.

If you want to email me the file directly I will take a look see.

Cheers
Andy

Phil Hageman wrote:
Andy, A new wrinkle - when trying to format data labels for color, the error
message comes up again. I checked every font format and all AutoScale boxes
are unchecked. I am not allowed to change font colors. Any idea what is
causing this?

Regards, Phil

"Andy Pope" wrote:


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


--

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

  #13   Report Post  
Andy Pope
 
Posts: n/a
Default

Phil's wrinkle was flatten when he cleaned his disk of .tmp files.

Cheers
Andy

Kris29 wrote:
Eagerly waiting to see how this turns out. My document doesn't have the
autoscale marked. And I keep getting this same error.

"Phil Hageman" wrote:


Sent to

"Andy Pope" wrote:


I assume you have saved the workbook since running autofont fix.
But other than that I can't think of anything new to suggest.

If you want to email me the file directly I will take a look see.

Cheers
Andy

Phil Hageman wrote:

Andy, A new wrinkle - when trying to format data labels for color, the error
message comes up again. I checked every font format and all AutoScale boxes
are unchecked. I am not allowed to change font colors. Any idea what is
causing this?

Regards, Phil

"Andy Pope" wrote:



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


--

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


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
  #14   Report Post  
Steven Noriega
 
Posts: n/a
Default

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

  #15   Report Post  
Debra Dalgleish
 
Posts: n/a
Default

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



  #16   Report Post  
Computer Rx Inc
 
Posts: n/a
Default

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


  #17   Report Post  
A Eppelstun
 
Posts: n/a
Default

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


  #18   Report Post  
Computer Rx Inc
 
Posts: n/a
Default

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


  #19   Report Post  
Posted to microsoft.public.excel.charting
external usenet poster
 
Posts: 1
Default Font error message

Andy are you still out there? I am working on a workbook that keep getting
that error about font. I have taken the autofont off of every chart. I seem
to be having a wrinkle, after I did this is I am still getting the error when
I try to copy or change a source area. I have around 112 charts right now
and have 28 more to go. I have been working on this prob all day and this
workbook for a month. Can you help?

Angie

"Andy Pope" wrote:

Phil's wrinkle was flatten when he cleaned his disk of .tmp files.

Cheers
Andy

Kris29 wrote:
Eagerly waiting to see how this turns out. My document doesn't have the
autoscale marked. And I keep getting this same error.

"Phil Hageman" wrote:


Sent to

"Andy Pope" wrote:


I assume you have saved the workbook since running autofont fix.
But other than that I can't think of anything new to suggest.

If you want to email me the file directly I will take a look see.

Cheers
Andy

Phil Hageman wrote:

Andy, A new wrinkle - when trying to format data labels for color, the error
message comes up again. I checked every font format and all AutoScale boxes
are unchecked. I am not allowed to change font colors. Any idea what is
causing this?

Regards, Phil

"Andy Pope" wrote:



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


--

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


--

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

  #20   Report Post  
Posted to microsoft.public.excel.charting
external usenet poster
 
Posts: 2,489
Default Font error message

Hi Angie,

Still around ;)
unfortunately I haven't got any more suggestion to those in this thread :(

Cheers
Andy

Angela Marker wrote:
Andy are you still out there? I am working on a workbook that keep getting
that error about font. I have taken the autofont off of every chart. I seem
to be having a wrinkle, after I did this is I am still getting the error when
I try to copy or change a source area. I have around 112 charts right now
and have 28 more to go. I have been working on this prob all day and this
workbook for a month. Can you help?

Angie

"Andy Pope" wrote:


Phil's wrinkle was flatten when he cleaned his disk of .tmp files.

Cheers
Andy

Kris29 wrote:

Eagerly waiting to see how this turns out. My document doesn't have the
autoscale marked. And I keep getting this same error.

"Phil Hageman" wrote:



Sent to

"Andy Pope" wrote:



I assume you have saved the workbook since running autofont fix.
But other than that I can't think of anything new to suggest.

If you want to email me the file directly I will take a look see.

Cheers
Andy

Phil Hageman wrote:


Andy, A new wrinkle - when trying to format data labels for color, the error
message comes up again. I checked every font format and all AutoScale boxes
are unchecked. I am not allowed to change font colors. Any idea what is
causing this?

Regards, Phil

"Andy Pope" wrote:




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


--

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


--

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


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I print grayscale font in Excel 2003? NKT Excel Discussion (Misc queries) 0 January 26th 05 05:51 PM
Multiple font styles (superscript and subscript, for example) Lorraine Charts and Charting in Excel 0 January 13th 05 08:45 PM
xl chart font sizing into PPT Brian Reilly, MS MVP Charts and Charting in Excel 1 January 12th 05 03:58 AM
How to change the default font and size of "comments"? ClayMcQ Excel Discussion (Misc queries) 1 January 8th 05 12:43 AM
Mixing Font Sizes In A Cell Formula Minitman Excel Worksheet Functions 2 November 11th 04 04:40 PM


All times are GMT +1. The time now is 05:59 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"