运行时错误＆＃39; -2147024809（80070057）＆＃39;行为不稳定

Question

我有一个宏来创建图表并修改其属性。

如果我正常运行宏，我会收到以下错误

在此代码的最后一行

Set ChtObj = Worksheets("summary").ChartObjects.Add(Left:=700, Top:=100, Width:=800, Height:=500)
With ChtObj
    .chart.ChartType = xlColumnStacked
    .chart.SetSourceData Source:=Range("statistics!A101:C" & targetRow)
    .Name = "waterfall"
End With
ActiveSheet.ChartObjects("waterfall").Activate

但是，如果我尝试逐步运行代码，我根本就没有错误，一切顺利。这个问题在哪里？

Answer 1

在代码顶部写Worksheets("summary").Activate，它应该有用。

问题是在宏运行期间，您的活动工作表不是“摘要”。