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 '画面表示開始
