问：VBA - 一次格式化多个图表数据标签？答案

【问题标题】：Q: VBA - Format Multiple Chart Data Labels At Once?问：VBA - 一次格式化多个图表数据标签？
【发布时间】：2017-04-14 13:43:56
【问题描述】：

我想知道是否有人可以帮助我创建一个宏来同时编辑多个图表的数据标签。

我目前在一张纸上有 9 个图表，需要将数据标签的格式设置为“Inside end”。每次更改数据集时，我都需要单击每个单独的图表并手动将格式按到内部。鉴于有 200 多个数据集，这变得很麻烦。有没有可以做到这一点的宏？

【问题讨论】：

标签： vba excel charts labels

【解决方案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

【讨论】：