Excel 2013可用的散点图数据标签VBA代码在Office 365中报错崩溃

你的代码在Excel 2013正常运行但Office 365报错崩溃，核心原因是InsertChartField方法在新版Office的图表对象模型中兼容性下降，容易触发对象引用错误或内存泄漏。改用直接绑定单元格范围的方式设置数据标签，稳定性更高。

修改后的关键代码 #

将报错的InsertChartField行替换为直接设置DataLabels.Text属性：

If ActiveSheet.Cells(X, 9) = True Then
    With chtSeries.DataLabels
        ' 替换原报错的InsertChartField行
        .Text = "='" & ActiveSheet.Name & "'!" & RngLabel.Address
        .Font.Bold = True
        .Font.Color = RGB(0, 0, 0)
        .ShowCategoryName = False
        .ShowSeriesName = False
        .ShowValue = False
        .ShowRange = True
        If (RngY.Value = Worksheets("HelperSheet").Range("C28").Value And RngY.Value > 0) Or (X = 11 And Range("Coupled") = True) Then
            .Position = xlLabelPositionBelow
        Else
            .Position = xlLabelPositionAbove
        End If
    End With
End If

完整修改后的代码片段 #

If PlotData = True Then
    Set RngX = ActiveSheet.Cells(X, 2)
    Set RngY = ActiveSheet.Cells(X, 3)
    Set RngLabel = ActiveSheet.Cells(X, 1)
    cht.SeriesCollection.NewSeries
    Set chtSeries = cht.SeriesCollection(cht.SeriesCollection.Count)
    With chtSeries
        .XValues = RngX
        .Values = RngY
        .Format.Line.Visible = msoFalse
        .MarkerStyle = xlMarkerStyleCircle
        .MarkerSize = 9
        .MarkerBackgroundColor = RGB(255, 192, 0)
        .MarkerForegroundColor = RGB(0, 0, 0)
        .Format.Line.Weight = 1
        ' 简化HasDataLabels赋值逻辑
        .HasDataLabels = (ActiveSheet.Cells(X, 9) = True)
        .HasLeaderLines = True
    End With
    If ActiveSheet.Cells(X, 9) = True Then
        With chtSeries.DataLabels
            .Text = "='" & ActiveSheet.Name & "'!" & RngLabel.Address
            .Font.Bold = True
            .Font.Color = RGB(0, 0, 0)
            .ShowCategoryName = False
            .ShowSeriesName = False
            .ShowValue = False
            .ShowRange = True
            If (RngY.Value = Worksheets("HelperSheet").Range("C28").Value And RngY.Value > 0) Or (X = 11 And Range("Coupled") = True) Then
                .Position = xlLabelPositionBelow
            Else
                .Position = xlLabelPositionAbove
            End If
        End With
    End If
End If

补充说明 #

1. 新版Office 365对图表的TextFrame2对象操作做了限制，InsertChartField属于旧版API，容易触发异常；直接设置Text属性绑定单元格是官方推荐的更稳定方案，还能自动同步单元格内容。
2. 代码中简化了.HasDataLabels的赋值逻辑，用布尔表达式直接赋值，更简洁高效。
3. 确保RngLabel为单个单元格（你的代码逻辑已满足），这样每个散点数据点能对应唯一的标签内容。

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