vba - 删除 Excel 中的图表

Question

我试图绘制一些 RTD 数据的图表，结果意外地在同一个工作表上出现了数百个图表。现在我正在尝试撤消我的错误并删除所有图表，但我运气不佳。

我录制了一个宏，手动删除了其中一个图表，然后尝试编辑代码以循环遍历所有图表，但我不断收到错误。我的代码如下:

Sub Macro3()

Dim i As Integer

For i = 1 To 100
  Sheets("Calculations").Select
  ActiveSheet.ChartObjects("Chart " & CStr(i)).Activate
  ActiveChart.ChartArea.Select
  ActiveWindow.Visible = False
  Selection.Delete
Next i
End Sub

当我尝试运行此程序时，收到一条错误消息，指出无法从 Worksheet 类访问 ChartObjects 属性。

我确信对此有一个简单的解释/解决方案，但我了解到 VBA 有时所做的事情与您的预期略有不同。所以，我想我的问题是，如何删除图表而不必一次浏览每个图表？

如有任何帮助，我们将不胜感激。谢谢。

Answer 1

试试这个，它将删除工作表上的所有图表，无论其名称如何。

Sub Macro3()
    Worksheets("Calculations").ChartObjects.Delete
End Sub