保存excel表格提示本工作薄不能使用其他新字体

来源:百度文库 编辑:神马文学网 时间:2024/05/03 06:35:46
解决方案:
禁用现有图表中的自动字体缩放
方法   1:禁用每个图表中的“自动缩放”
1.   选择一个图表。
2.   在格式菜单上,单击图表区。
3.   单击字体选项卡。
4.   单击以清除自动缩放复选框。
5.   单击确定。
6.   为工作簿中的每个图表重复这些步骤。
方法   2:以编程方式禁用工作簿中所有现有图表的“自动缩放”
以编程方式禁用工作簿中所有现有图表的“自动缩放”,请执行下列步骤:1.   启动   Excel   并打开导致错误信息的文件。
2.   在“工具”菜单上,指向“宏”,然后单击“Visual   Basic   编辑器”(或按   Alt+F11)。
3.   在   Visual   Basic   编辑器中,从“插入”菜单中选择“模块”。
4.   在模块中键入或粘贴以下代码: Sub   AutoScale_Off()
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
5、点保存按钮保存刚才编写的宏,回到工作簿界面,点击“工具宏宏”,选中 AutoScale_Off(也就是我们刚才编写的宏的名称),点执行,一切搞定。