问：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