问：VBA – 同时格式化多个图表数据标签？

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

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

Answer 1

我不确定“内部结束”是什么意思，但你应该可以打开macroslogging，点击通常的步骤，然后停止logging器。 您将拥有需要进行所描述更改的代码。 现在，只需遍历每个图表对象并进行必要的更改。

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