解決方案:
禁用現有圖表中的自動字型縮放
方法 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
Next
MsgBox i & " charts have been altered"
Application.DisplayAlerts = True
End Sub
解決方案:
禁用現有圖表中的自動字型縮放
方法 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