Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » データラベルを値によって非表示にするExcelマクロ

データラベルを値によって非表示にするExcelマクロ

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

「vba グラフデータラベルある値以下は非表示」
という検索キーワードでアクセスがありました。

データラベルを条件によって非表示にするサンプルマクロ

下図のように、

全データ系列の全データ要素に、値のみのデータラベル表示されているときに、以下のExcelマクロを実行してください。

Sub 指定した値以下のデータラベルを非表示にする()
　Const MAX_VAL = 300

　Dim srs As Series
　For Each srs In ActiveChart.SeriesCollection

　　Dim pnt As Point
　　For Each pnt In srs.Points
　　　If pnt.DataLabel.Text <= MAX_VAL Then
　　　　pnt.HasDataLabel = False
　　　End If
　　Next pnt

　Next srs
End Sub

下図のように、定数MAX_VALで指定した300以下のデータラベルが非表示になります。

アクティブなグラフの全データ系列に対するFor Each～Nextループの中で、

Dim srs As Series
For Each srs In ActiveChart.SeriesCollection

各データ系列の全データ要素に対するFor Each～Nextループを使用することで、

　Dim pnt As Point
　For Each pnt In srs.Points

全てのデータ要素を順番に取得しています。

取得したデータ要素のデータラベルに表示されている文字列が、定数MAX_VALに指定されている値以下だったときに、

　　If pnt.DataLabel.Text <= MAX_VAL Then

そのデータ要素のデータラベルを非表示にしています。

　　　pnt.HasDataLabel = False

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

伊藤潔人 2022-06-10

最終更新日時：2022-07-05 20:24

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » データラベルを値によって非表示にするExcelマクロ

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

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

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

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

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

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

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

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

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

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

3年前(2021年4月)の
人気記事

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