No more new fonts may be applied in this workbook 2

[MatthewPeters]

Can someone please tell me what this error means and how to resolove it. We have an excel 2002 workbook with several charts in it. We get the error everytime we try to add new information (charts, headers, footers, etc.) Any help will be appreciated.

Thanks
Matt

 

[onedtent]

highlight chart. go to format, select chart area, font tab, uncheck auto scaling.

u may need to do this for all charts.

or

u can split the charts into several wb's.

 

[onedtent]

higlight chart. go to format, select chart area, font tab, uncheck auto scaling.

u may need to do this for all charts.

or

u can split the charts into several wb's.

 

[MatthewPeters]

Thanks. I'll check the charts and post back.

 

[MatthewPeters]

Some of the charts have the auto scale checked some do not. When I try to uncheck the auto scale it gives me the same error and then immediately rechecks the auto scale check box.

Splitting the charts into multiple wb's is an acceptable solution(and it works) but I would like to figure out why Excel will not let me uncheck the auto scale. Thanks for any more input you might have.

 

[onedtent]

this is from microsoft(Q292263):
(if u don't know how to use it; go to Tools, Macro, Visual Basic Editor, Insert, Module and copy the macro in pane on the right..... what this does is takes each chart and removes the auto scale)

Sub C()
Dim ws As Worksheet, co As ChartObject, i As Integer
Dim ch As Chart
For Each ws In ActiveWorkbook.Worksheets

' Go through each worksheet in the workbook

For Each co In ws.ChartObjects

'In each chart turn the Auto Scale font feature off

i = i + 1
co.Chart.ChartArea.AutoScaleFont = False
Next co
Next ws

For Each ch In ActiveWorkbook.Charts

'Go through each chart in the workbook

ch.ChartArea.AutoScaleFont = False
i = i + 1
Next
MsgBox i & " charts have been altered"
Application.DisplayAlerts = True
End Sub

 

[MatthewPeters]

The macro seemed to have worked. Thanks for you help and time.