我有 18 個圖表并想更改它們的格式，但以下代碼不起作用
Dim ws As Worksheet
Dim cht As Chart
Set ws = ActiveSheet
For Each cht In ws.ChartObjects
cht.Activate
cht.ChartArea.Format.TextFrame2.TextRange.Font.Name = "Arial"
Next cht
根據錯誤的性質，這似乎是一個語法錯誤，但盡管閱讀了多個查詢，但我無法弄清楚
uj5u.com熱心網友回復：
您需要回圈圖表物件，然后從中獲取圖表。
Dim ws As Worksheet
Dim cho As ChartObject
Dim cht As Chart
Set ws = ActiveSheet
For Each cho In ws.ChartObjects
Set cht = cho.Chart
cht.ChartArea.Format.TextFrame2.TextRange.Font.Name = "Times New Roman"
Next cho
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/409010.html
標籤：