Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » グラフシートをFor Each～Nextループで処理する

グラフシートをFor Each～Nextループで処理する

動作検証バージョン：Windows版Excel（バージョン1908 ビルド11929.20300）

「vba グラフシート for each」
という検索キーワードに気が付きました。

拙著『いちばんやさしいExcel VBAの教本』のLesson 70の「グラフシートはChartsとChartで操作」で少しだけ触れているChartsを使えば、

グラフシートだけを処理できます。

［スポンサードリンク］

グラフシートをFor Each～Nextループで処理するサンプルマクロ

以下のSubプロシージャが参考になるでしょう。

Sub グラフシートをFor_Each文で処理する()
　Dim cht As Chart
　For Each cht In Charts
　　If cht.Visible Then
　　　cht.Select
　　　MsgBox cht.Index
　　End If
　Next
End Sub

グラフシートをFor Each～Nextループで処理するサンプルについて

上記のSubプロシージャを実行すると、アクティブなブックで、表示されているグラフシートが
　　For Each cht In Charts
　　　If cht.Visible Then

順番に選択され、（ワークシートも含んだ）何枚目のシートかを表す整数（Chart.Index）が、

メッセージボックスに表示されます。

なおChartsプロパティで取得できるオブジェクトは、Chartsコレクションと理解していてもそれほど困らないとは思いますが、オブジェクトブラウザー等で確認すればわかるとおり、厳密にはChartオブジェクトだけを単独のオブジェクトとして含むSheetsコレクションです。

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

最終更新日時：2019-10-08 14:54

［スポンサードリンク］

▼2月16日（日）に、オブジェクトブラウザーの使い方とともに、オブジェクト式（オブジェクトを取得・操作するコード）の文法やオブジェクト変数等について解説する、VBAの経験者向けセミナー『Excel VBA講座オブジェクト式解説編』を開催します。

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » グラフシートをFor Each～Nextループで処理する

TrackBack:0

TrackBack URL

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » グラフシートをFor Each～Nextループで処理する

『インストラクターのネタ帳』は2003年10月から、Microsoft Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。
2冊目の本『いちばんやさしいPowerPoint VBAの教本』が、1月24日にインプレスから発売されました！

［熟読されている記事］

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