VBAで全グラフシートを削除する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「vba グラフシートのみ全削除」
「excel vba 複数のグラフシートを削除する」
「エクセルマクログラフシートの削除」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。

VBA（Visual Basic for Applications）でグラフシートを削除するには、どのようなコードを書けばいいのかを探している方による検索です。

「複数のグラフシート」と表現されているものが、どの複数なのかがわかりませんので、ここではアクティブなブックの、全グラフシートを削除するマクロを2つご紹介しておきます。

［スポンサードリンク］

全グラフシートを削除するサンプルマクロ

プログラミング経験のある方、ある程度Excelマクロを作り慣れた方が思いつきやすいのは以下のようなマクロでしょう。

Sub 全グラフシートを削除する()
　Dim cht As Chart
　For Each cht In Charts
　　cht.Delete
　Next
End Sub

すべてのグラフシートを表すChartsコレクションオブジェクトに対してFor Each～Nextループを回して、
　　For Each cht In Charts

順番に削除していきます。
　　　cht.Delete

上記のマクロを実行すると、
「選択したシートに、データが存在する可能性があります。データを完全に削除するには［削除］をクリックしてください。」
という確認メッセージが表示されます。

この確認メッセージを表示したくないのであれば、
　　Application.DisplayAlerts = False
を、For Each～Nextループへ入る前に、入れてください。

実はループを回さなくても、すべてのグラフシートを削除できます。

Sub 全グラフシートを削除する_ループなし()
　If Charts.Count >= 1 Then
　　Charts.Delete
　End If
End Sub

すべてのグラフシートを表す（Chartオブジェクトのみを単独のオブジェクトとして含む）Sheetsコレクションにも、Deleteメソッドがあるためです。

グラフシートが存在しない場合にいきなりCharts.Deleteを実行すると、実行時エラーが発生しますので、
　　If Charts.Count >= 1 Then
というIf文をかましています。

最終更新日時：2020-06-11 16:11

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

3年前(2021年4月)の
人気記事

「グラフ・Chart」の記事一覧