VBA生成数据透视图表时ApplyDataLabels触发运行时错误438

错误原因分析 #

1. 对象调用错误：Run Time 438 错误源于循环中错误地通过 chtObj（ChartObject）调用 ApplyDataLabels 方法，而该方法属于Series（系列）对象，并非ChartObject的成员。
2. 属性拼写错误：VBA中字体颜色属性为 Font.Color，代码里的 Font.Colour 是英式拼写，不符合VBA语法规范。
3. 注释混乱：代码中残留的无效注释破坏了代码结构，影响执行逻辑。

修正后的完整代码 #

Sub Graph_Test_3()

Dim chtObj As ChartObject
Dim PvtSht As Worksheet
Dim PvtTbl As PivotTable
Dim ser As Series

' 设置数据透视表所在工作表
Set PvtSht = Worksheets("Pivots And Graphs")

' 设置数据透视表对象
Set PvtTbl = PvtSht.PivotTables("PivotTable5")

' 创建图表对象
Set chtObj = PvtSht.ChartObjects.Add(300, 200, 550, 200)

' 配置图表属性
With chtObj
    .Chart.SetSourceData PvtTbl.TableRange2 ' 绑定数据透视表数据范围
    .Chart.ChartType = xlColumnStacked
    .Name = "Performance Spread 24"
    .Chart.HasTitle = True
    .Chart.ChartTitle.Text = "Performance Spread 24"
    .Chart.Axes(xlCategory).HasTitle = True
    .Chart.Axes(xlCategory).AxisTitle.Text = "Performance Range"
    .Chart.Axes(xlValue).HasTitle = True
    .Chart.Axes(xlValue).AxisTitle.Text = "Headcount"
    .Chart.Axes(xlCategory).MajorGridlines.Delete
    .Chart.Axes(xlValue).MajorGridlines.Delete
    
    ' 遍历每个系列，添加并配置数据标签
    For Each ser In .Chart.SeriesCollection
        ser.ApplyDataLabels xlDataLabelsShowValue ' 改为通过Series对象调用方法
        With ser.DataLabels
            .Position = xlLabelPositionOutsideEnd
            .Font.Size = 12
            .Font.Color = vbBlack ' 修正拼写错误
        End With
    Next ser
End With
End Sub

关键修正点说明 #

• 将 .ApplyDataLabels xlDataLabelsShowValue 改为 ser.ApplyDataLabels xlDataLabelsShowValue，确保调用的是当前循环中Series对象的方法。
• 把 .Font.Colour 修改为 .Font.Color，符合VBA的属性命名规范。
• 清理无效注释，保证代码结构清晰。

内容的提问来源于stack exchange，提问作者ConorWJ