如何擺脫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

您需要枚舉每個圖表並單獨刪除它。您正嘗試刪除該集合。

Answer 2

這是校正代碼：

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