問：VBA - 一次格式化多個圖表數據標籤？

Question

我想知道是否有人可以幫助我創建一個宏來同時編輯多個圖表的數據標籤。

我目前在一張紙上有9張圖表，需要將數據標籤設置爲「內部結束」格式。每次更改數據集時，我都需要點擊每個圖表並手動按格式輸入內部。看到有200多個數據集，這變得很麻煩。有沒有一個宏可以做到這一點？

Answer 1

我不確定'內部結束'是什麼意思，但您應該可以打開宏記錄，單擊通常的步驟，然後停止記錄器。您將擁有需要進行所描述更改的代碼。現在，只需遍歷每個圖表對象並進行必要的更改。

Sub LoopThroughCharts() 
'PURPOSE: Loop through every graph in the active workbook 
'SOURCE: www.TheSpreadsheetGuru.com/The-Code-Vault 

Dim sht As Worksheet 
Dim CurrentSheet As Worksheet 
Dim cht As ChartObject 

Application.ScreenUpdating = False 
Application.EnableEvents = False 

Set CurrentSheet = ActiveSheet 

For Each sht In ActiveWorkbook.Worksheets 
    For Each cht In sht.ChartObjects 
    cht.Activate 

    'Do something with the chart... 

    Next cht 
Next sht 

CurrentSheet.Activate 
Application.EnableEvents = True 

End Sub