|
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
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 |
| All times are GMT +1. The time now is 09:20 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com