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

記事内に広告が含まれています。

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

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

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

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

    Application.ScreenUpdating = True  '画面表示開始
タイトルとURLをコピーしました