Question

我试图遍历excel中的所有图表并将所有标签格式更改为整数。这是我的代码：

Sub LoopThroughCharts()

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
      cht.chart.FullSeriesCollection(1).DataLabels.NumberFormat = "#,##0"

  Next cht
Next sht

CurrentSheet.Activate
Application.EnableEvents = True

End Sub

但是，我无法运行它。给我的错误是运行时错误

＆＃39; -2147467259（80004005）＆＃39;：无法获取该属性的Count属性 DataLabels类

此外，代码在单个图表上正常工作。有人可以帮忙解决这个问题吗？

Answer 1

只有在没有为图表设置数据标签并且您尝试更改数据标签的格式时，才会收到该错误。

尝试这样......

For Each sht In ActiveWorkbook.Worksheets
    For Each cht In sht.ChartObjects
        cht.Chart.SetElement msoElementDataLabelOutSideEnd
        cht.Chart.FullSeriesCollection(1).DataLabels.NumberFormat = "#,##0"
    Next cht
Next sht

Answer 2

您需要检查每个系列的HasDataLabels属性（不相关的代码已删除）：

Sub LoopThroughCharts()

    Dim sht As Worksheet
    Dim cht As ChartObject
    Dim ser As Series

    For Each sht In ActiveWorkbook.Worksheets
        For Each cht In sht.ChartObjects
            For Each ser In cht.Chart.SeriesCollection
                If ser.HasDataLabels Then
                    ser.DataLabels.NumberFormat = "#,##0"
                End If
            Next
        Next cht
    Next sht

End Sub

遍历所有图表并更改标签格式vba

2 个答案: