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

Question

考虑以下代码：

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

当我运行此代码时，一切运行正常，如果没有关闭应用程序，如果使用其他报告类型重新运行它 - 它会在Set objChart = Charts.Add

处提示错误1004

任何帮助，任何人都可以提供的将是非常感谢。

Answer 1

您可以在用户界面中添加图表吗？我打赌你的情况是无法添加图表（选择多张图纸;未激活工作簿;保护范围有效;等等）。

克里斯