ExcelVBAで指定されたシートのグラフオブジェクトを削除する

指定されたシート上に存在するグラフオブジェクトを削除します。

    Dim chartcnt As Integer             'グラフシートにあるグラフオブジェクトの数

    Application.ScreenUpdating = False  '画面表示停止

    Worksheets("グラフシート").Select   'グラフオブジェクトを削除するシートを選択
 
    chartcnt = ActiveSheet.ChartObjects.Count  'シート上のグラフオブジェクトの数を取得
    Do
        If chartcnt = 0 Then            'グラフオブジェクトの数が０になったら
            Exit Do                     '処理終了
        End If
        
        ActiveSheet.ChartObjects(chartcnt).Delete  'グラフオブジェクト削除
        chartcnt = chartcnt - 1
    Loop

    Application.ScreenUpdating = True  '画面表示開始