运行VBA宏触发Run time error 91，调用activeChart.SeriesCollection.NewSeries报错如何解决

问题原因 #

宏录制生成的代码默认依赖ActiveChart动态对象，该对象仅在有处于激活状态的图表时才会被VBA正常识别，运行宏时如果没有提前选中激活目标图表，就会触发对象未找到的报错。

修复方案 #

方案1：明确指定引用的图表（推荐） #

直接按工作表、图表名称锁定目标图表，不需要提前选中，运行稳定性更高，示例代码如下：

Dim targetChart As Chart
' 替换下方的工作表名称、图表名称为你实际的内容即可
Set targetChart = ThisWorkbook.Worksheets("你的工作表名称").ChartObjects("你的图表名称").Chart

' 后续原代码中所有用到ActiveChart的位置，全部替换为targetChart即可
' 示例：原代码 ActiveChart.SetSourceData Source:=Range("A1:B10") 改为 targetChart.SetSourceData Source:=Range("A1:B10")

方案2：增加激活判断 #

如果你需要宏处理当前手动选中的图表，可以先加一层非空判断避免报错：

' 运行前先判断是否有激活的图表
If ActiveChart Is Nothing Then
    MsgBox "请先选中要操作的图表再运行宏", vbExclamation
    Exit Sub
End If

' 此处接你原来录制的宏代码即可

优化建议 #

宏录制生成的代码通常会带有大量Select、Activate类依赖界面操作状态的冗余代码，建议后续逐步替换为直接引用对象的写法，既可以降低报错概率，也能提升宏的运行效率。

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