excel - グラフの削除 VBA エラー

Question

ワークシートにグラフがない場合、VBA でこのコードを無視するにはどうすればよいですか? 現時点では、ワークシートに ChartObject がない限り、停止してデバッガーを開きます。

ActiveSheet.ChartObjects.Delete

ありがとうございました。

Answer 1

ワークシートにグラフがない場合、VBA でこのコードを無視するにはどうすればよいですか?

これを試して

Sub Sample()
    Dim ws As Worksheet
    Dim Chrtobj As ChartObject

    Set ws = ThisWorkbook.Sheets("Sheet1")

    '~~> Check if there are any chartobjects in the sheet
    If Not ws.ChartObjects.Count = 0 Then ws.ChartObjects.Delete
End Sub