Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » ChartObject・埋め込みグラフの有無を調べる

ChartObject・埋め込みグラフの有無を調べる

対象：Excel 2010, Excel 2013, Windows版Excel 2016

グラフ

「vba chartobject有無判定」
「excel vba chartobject 存在するか」
「excel vba chartobjectsの有無を調べる」
といった検索でのアクセスが、意外とあることに気づきました。

ワークシート上に埋め込みグラフ（ChartObjectオブジェクト）が存在するかどうかをExcel VBAで調べるには、どのようなコードを書けばいいのか探していらしたのでしょう。

アクティブシートの埋め込みグラフ有無を調べるサンプルマクロ

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

Sub 埋め込みグラフの有無確認_アクティブシート()
　If ActiveSheet.ChartObjects.Count = 0 Then
　　MsgBox "アクティブシートに埋め込みグラフはありません。"
　End If
End Sub

埋め込みグラフが存在しなければ、埋め込みグラフを表すChartObjectオブジェクトを単独のオブジェクトとして持つ、ChartObjectsコレクションオブジェクトのCountプロパティが0に、存在していれば1以上になります。

オブジェクトブラウザー：ChartObjects.Count

オブジェクト式「ActiveSheet.ChartObjects.Count」を、「Worksheets(1).ChartObjects.Count」とすれば、一番左のワークシートの埋め込みグラフ有無を確認できます。

「Worksheets("サンプルシート").ChartObjects.Count」とすれば、「サンプルシート」という名前のワークシートの埋め込みグラフ有無を確認できます。

以下のようなマクロにすれば、アクティブなブックの埋め込みグラフ有無を調べられます。

Sub 埋め込みグラフの有無確認_アクティブブック()
　Dim cnt As Long: cnt = 0

　Dim ws As Worksheet
　For Each ws In Worksheets
　　cnt = cnt + ws.ChartObjects.Count
　Next

　If cnt = 0 Then
　　MsgBox "アクティブブックに埋め込みグラフはありません。"
　Else
　　MsgBox "アクティブブックには「" & cnt & "」個の埋め込みグラフがあります。"
　End If
End Sub

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

伊藤潔人 2022-06-10

最終更新日時：2022-06-23 10:17

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » ChartObject・埋め込みグラフの有無を調べる

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

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

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

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

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

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

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

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

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

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

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

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

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