如何擺脫VBA中所有工作簿中的圖表？

Question

我嘗試運行此代碼以刪除任何圖表，然后再允許代碼運行，但“對象不支持此方法”的錯誤不斷出現。

Dim wksht As Worksheets

Set Source_Workbook = ThisWorkbook

For Each wksht In Source_Workbook

   If ChartObjects.Count > 0 Then

      ChartObjects.Delete

   End If 

Next wksht

Answer 1

這是更正的代碼：

Sub DeleteAllChartObjects()
  Dim wksht As Worksheet
  For Each wksht In ThisWorkbook.Worksheets
    If wksht.ChartObjects.count > 0 Then wksht.ChartObjects.Delete
  Next wksht
End Sub

Answer 2

您需要枚舉每個圖表並將其分別刪除。 您正在嘗試刪除收藏集。