VBAで全グラフシートの名前を取得する

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

「vba グラフシートの名前の取得」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

Excel VBAで、グラフシートの名前を取得するには、どのようなコードを書けばいいのかを探している方による検索です。

グラフシートの名前は、ChartオブジェクトのNameプロパティで取得することができますが、

グラフシートの名前を取得するExcelマクロ

「vba グラフシートの名前の取得」
という検索キーワードでは、具体的にどんなことをしたかったのかまではわかりませんので、アクティブなブックの、すべてのグラフシートを順番に取得するマクロを2つご紹介しておきます。

For Each～Nextループでグラフシートの名前を取得するサンプルマクロ

以下のマクロを実行すると、アクティブなブックのグラフシートの名前が、順番にメッセージボックスに表示されます。

Sub グラフシートの名前を取得する_オブジェクト変数()
　Dim cht As Chart
　For Each cht In Charts
　　MsgBox cht.Name
　Next
End Sub

Chartsプロパティを利用すると、すべてのグラフシートを表す（Chartオブジェクトだけを単独のオブジェクトとして含む）Sheetsコレクションオブジェクトを取得できます。

グラフシートの名前を取得するExcelマクロ

Chartsプロパティで取得したSheetsコレクションオブジェクトから、For Each～Nextループで順番にChartオブジェクトを取得して、
　　Dim cht As Chart
　　For Each cht In Charts

Chartオブジェクトの名前をメッセージボックスに表示しています。
　　　MsgBox cht.Name

オブジェクト変数を使うFor Each～Nextループは、通常カウンター変数を使ったFor～Nextループで書くこともできますから、以下のようなマクロでも、グラフシートの名前を順番に取得できます。

Sub グラフシートの名前を取得する_カウンター変数()
　Dim i As Long
　For i = 1 To Charts.Count
　　MsgBox Charts(i).Name
　Next
End Sub

Countプロパティを使えば、グラフシートの枚数を取得できますので、

グラフシートの名前を取得するExcelマクロ

1枚目からグラフシートの枚数だけFor～Nextループを回して、
　　For i = 1 To Charts.Count

順番にグラフシートを表すChartオブジェクトを取得して、名前をメッセージボックスに表示しています。
　　　MsgBox Charts(i).Name

理解するExcel VBA／グラフ操作の基本

伊藤潔人 2022-06-10

最終更新日時：2023-04-23 06:29

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

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

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

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

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

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

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

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

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

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

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

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