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