vba：グラフ削除

`

Dim r As Long

' グラフを削除
With ActiveSheet
    For r = .ChartObjects.Count To 1 Step -1
        .ChartObjects(r).Delete
    Next r
End With

`