【VBA】指定シート上のグラフをすべて削除する方法｜ChartObjectsの操作

経緯

Excelシート上に複数のグラフを作成していると、
一括でグラフを削除したい場面が出てきます。

私の場合、ダッシュボードとして活用しているシートにグラフが多数配置されており、
すべてのグラフを手動で削除するのが面倒だったため、VBAで一括削除する処理を作成しました。

実現したい仕様

• シート名「ダッシュボード」にあるすべてのグラフを一括で削除
• ChartObjects を使ってグラフの存在を判定し、繰り返し削除

実装コード（VBA）

Sub CopyGraphsToDashboard()
    Dim dashboardSheet As Worksheet

    Set dashboardSheet = ThisWorkbook.Sheets("ダッシュボード")

    ' ダッシュボード上の既存のグラフをすべて削除
    Do While dashboardSheet.ChartObjects.Count > 0
        dashboardSheet.ChartObjects(1).Delete
    Loop
End Sub

コードの補足

• ChartObjects.Count により、シート上のグラフの個数を取得
• .ChartObjects(1).Delete を使うことで、先頭のグラフから順番に削除
• Do While ループで、グラフがなくなるまで繰り返し処理

この構成により、グラフの数が何個であっても、全件確実に削除されます。

注意点

• ChartObjects は 埋め込みグラフ（Sheet内のグラフ） にのみ対応します
  　→ グラフシート（Chart Sheets）は対象外です
• 対象のシート名（ここでは「ダッシュボード」）は、ご自身の環境に応じて変更してください
• すべてのグラフが削除されるため、削除前にバックアップを取ることを推奨します

まとめ

• VBAを使えば、指定シート上のすべてのグラフを一括削除可能
• ChartObjects(1).Delete をループ処理に組み込むことで実現
• グラフを頻繁に更新・再作成する環境において、非常に便利なメンテナンス手段

大量のグラフを一気に削除したい方は、ぜひ活用してみてください。
参考になれば幸いです。

技術書の購入コストを抑えてスキルアップするなら

ここまで読んでいただきありがとうございます。最後に宣伝をさせてください。

プログラミングの技術書や参考書は、1冊3,000円〜5,000円するものも多く、出費がかさみがちです。Kindle Unlimitedであれば、月額980円で500万冊以上の書籍が読み放題となります。

気になる言語の入門書から、アルゴリズム、基本設計の専門書まで、手元のスマホやPCですぐに参照可能です。現在は「30日間の無料体験」や、対象者限定の「3か月499円プラン」なども実施されています。まずはご自身のアカウントでどのようなオファーが表示されるか確認してみてください。

[Kindle Unlimited 読み放題プランをチェックする]