Vba 1004添加Excel图表时出现运行时错误

考虑以下代码：

Subroutine(ByRef objExcelApp As Object)

Dim objChart As Excel.Chart<br>
Dim objChartAdd As Excel.Chart


Set objChart = Charts.Add

'Plotting graph in excel 

'After completion 
Set objChart = Nothing

End Sub

子例程（ByRef objExcelApp作为对象）
以Excel.Chart格式显示的Dim objChart

Dim ObjChart添加为Excel.Chart
设置objChart=Charts.Add
在excel中绘制图形
"完成后,
设置objChart=Nothing
端接头

当我运行这段代码时，一切运行正常，如果使用另一种报告类型重新运行应用程序，则不会关闭应用程序-它会在

Set objChart=Charts.Add处提示错误1004

非常感谢任何人提供的任何帮助。
您能在UI中添加图表吗？我敢打赌，您正处于无法添加图表的情况下（已选择多张工作表；工作簿未激活；受保护范围激活；等等）

Chris
嗨，Chris，我启动应用程序（第一次运行）并运行它-那时我能够在Excel工作表上生成图表。当我在不重新启动应用程序的情况下重新运行它时，会弹出错误，我对它非常陌生-请告诉我如何跟踪错误-是的，你是对的，我无法添加图表。我的计划是：运行宏到出错的点。然后停止调试器，返回Excel并尝试点击“插入图表”。如果该按钮被禁用，请查看是否可以在Excel中找到原因。如果您看到一条错误消息，这也会有所帮助。如果它工作，你可以插入一个图表，那么我们有一个不同的问题！嗨，克里斯，这不是一个宏，它是一个VB程序。这是您刚才分享的一个很好的提示-谢谢：）我刚刚修复了错误-语句需要Set objchart=（EXCELOBJECT）.charts.add现在我的问题是，如果它在第一次运行时成功运行，然后在重新运行时失败，那么是什么逻辑原因证明它在第一次运行中成功？以及后来失败的原因。如果有人愿意分享他们的知识，将非常感谢。需要更多的细节。发布的代码不会编译。标题应类似于Sub YourSubName（…）Dim objChart…
无效。