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

［スポンサードリンク］

▼このサイト「インストラクターのネタ帳」を運営する伊藤潔人が書かせていただいた『いちばんやさしい PowerPoint 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万人の方にご覧いただいています。
Kindle Direct Publishingで、VBAユーザー向けのPython超入門書を出しました↓↓

2年前(2018年12月)の
人気記事

1位：Windows 10で手書き入力するIMEパッドを表示するには
2位：千円単位・百万円単位で表示する
3位：IF関数で○○以上××以下という条件を指定する
4位：COUNTIF関数で空白以外のセルをカウントする
5位：切り捨てしたい・切り上げしたい−ROUNDDOWN関数・ROUNDUP関数

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