VBA图表代码活动范围下报‘Application-defined错误’求修复

你的问题核心在于没有明确绑定命名区域SpRatings的工作表上下文——当活动范围切换到图表（而非数据所在工作表）时，Range("SpRatings")会因找不到有效工作表对象而抛出对象定义错误。下面是调整后的代码，既能满足你遍历活动范围的要求，又能彻底解决报错问题：

' 先明确指定SpRatings所在的工作表，替换成你的实际工作表名称
Dim dataWs As Worksheet
Set dataWs = ThisWorkbook.Worksheets("存放SpRatings的工作表名")

With ActiveChart
    ' 先校验目标系列是否存在，避免索引越界
    If .SeriesCollection.Count >= 11 Then
        Set Serpo = .SeriesCollection(11).Points
        j = Serpo.Count
        
        ' 遍历活动图表的每个数据点
        For i = 1 To j
            Serpo(i).ApplyDataLabels Type:=xlShowValue
            ' 明确引用目标工作表的命名区域，添加External参数确保跨表引用有效
            Serpo(i).DataLabel.Formula = "=" & dataWs.Range("SpRatings").Cells(i).Address(ReferenceStyle:=xlR1C1, External:=True)
            Serpo(i).DataLabel.Font.ColorIndex = 2
            Serpo(i).DataLabel.Position = xlLabelPositionInsideBase
        Next
    Else
        MsgBox "活动图表中不存在第11个数据系列，请检查系列索引！"
    End If
End With

关键修改说明： #

• 绑定固定工作表：用dataWs变量明确指定SpRatings所在的工作表，彻底摆脱对活动范围的依赖，不管当前激活的是图表还是其他工作表，都能精准找到目标数据
• 添加External参数：在Address方法中加入External:=True，确保数据标签的公式能正确引用跨工作表的单元格，避免图表与数据不在同一张表时的引用失效
• 增加系列校验：提前判断目标系列是否存在，避免因系列数量不足导致的额外报错

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