ChartObjectsの個数を調べるには

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2110 ビルド14527.20276 Microsoft Store）

「ChartObjects の数を調べる」
「VBA ChartObjectsがいくつあるか数える」
といった検索キーワードで時折アクセスがあります。

［スポンサードリンク］

揚げ足取りのようで恐縮ですが、
「ChartObjects」ではなく、
「ChartObject」の個数を取得する方法を探していらしたのではないかと、私は想像しています。
末尾の「s」に注目してください。

ChartObjectの個数を取得するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブシート上のChartObjectオブジェクトの個数がメッセージボックスに表示されます。

Sub ChartObjectの個数を取得する()
　MsgBox ActiveSheet.ChartObjects.Count
End Sub

Worksheetオブジェクトに用意されているChartObjectsメソッドで、

ChartObjectsコレクションを取得して、

ChartObjects.Countプロパティで、

ChartObjectsコレクションの要素である、下図のようなChartObjectオブジェクトの個数を取得しています。

「ChartObjects の数を調べる」
「VBA ChartObjectsがいくつあるか数える」
と検索なさった方が、本当にChartObjectsコレクションの個数を取得する方法を探していらしたのであれば、以下のSubプロシージャを参考にしてください。

Sub 要素が1以上のChartObjectsの個数を取得する()

　Dim cnt As Long

　Dim ws As Worksheet
　For Each ws In Worksheets
　　If ws.ChartObjects.Count >= 1 Then
　　　cnt = cnt + 1
　　End If
　Next

　MsgBox "要素が1以上のChartObjectsコレクションは「" & cnt & "」です。"

End Sub

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

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

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

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

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

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

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

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

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

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

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

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