Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » ChartObjectsの個数を調べるには

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オブジェクトの個数を取得しています。

要素が1以上のChartObjectsの個数を取得するサンプルマクロ

「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
[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » ChartObjectsの個数を調べるには

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

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.