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

2024-12-04 10:52:08
推荐回答(1个)
回答1:

解决方案:
禁用现有图表中的自动字体缩放
方法 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(也就是我们刚才编写的宏的名称),点执行,一切搞定。