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の使い方などを紹介し続けています。
日経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」の記事一覧