目次
経緯
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をループ処理に組み込むことで実現- グラフを頻繁に更新・再作成する環境において、非常に便利なメンテナンス手段
大量のグラフを一気に削除したい方は、ぜひ活用してみてください。
参考になれば幸いです。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
