Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » 系列要素単位のデータラベルフォント操作をVBAで行う

系列要素単位のデータラベルフォント操作をVBAで行う

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

系列単位でデータラベルのフォント設定を行うExcel VBAのコードについて解説しました。

系列単位ではなく、系列の要素単位でも、データラベルのフォント操作は可能です。

データラベルのフォント設定を系列要素単位で行うサンプル

データラベルの表示されているグラフがアクティブな状態で以下のSubプロシージャを実行すると、1つ目の系列の1つ目の要素のデータラベルのフォントが18ポイントに設定されます。

Sub 系列要素のデータラベルのフォントサイズを設定する()
　ActiveChart _
　　.SeriesCollection(1).Points(1).DataLabel _
　　　.Format.TextFrame2.TextRange.Font.Size = 18
End Sub

Chart.SeriesCollectionメソッドの引数に「1」を指定することで取得した、

.SeriesCollection(1).Points(1).DataLabel _

1つ目の系列を表すSeriesオブジェクトに用意されているPointsメソッドの引数に

「1」を指定して取得した、

.SeriesCollection(1).Points(1).DataLabel _

1つ目の系列の1つ目の要素を表すPointオブジェクトのDataLabelプロパティを使って

.SeriesCollection(1).Points(1).DataLabel _

系列要素のデータラベルを表すDataLabelオブジェクトを取得し、

フォントサイズを設定しています。

「.Format.TextFrame2.TextRange.Font.Size」の部分は、ご紹介済みの系列単位でデータラベルのフォント設定を行う場合と同じです。

単独のデータラベルのフォントサイズを設定するサンプル

以下のようなコードでも、1つ目の系列の1つ目の要素のデータラベルのフォント設定ができます。

Sub 単独のデータラベルのフォントサイズを設定する()
　ActiveChart _
　　.SeriesCollection(1).DataLabels(1) _
　　　.Format.TextFrame2.TextRange.Font.Size = 18
End Sub

結果的には同じですが、先ほどとは辿っているオブジェクトの階層構造が異なります。

先ほどのDataLabelオブジェクトを取得するコードは、

.SeriesCollection(1).Points(1).DataLabel

と、1つ目の系列の、1つ目の系列要素を表すDataLabelオブジェクトを取得しています。
それに対し、

.SeriesCollection(1).DataLabels(1)

と、SeriesオブジェクトのDataLabelsメソッドの引数に「1」を指定することで、

単独のデータラベルを表すDataLabelオブジェクトを取得しています。

理解するExcel VBA／グラフ操作の基本
伊藤潔人 2022-06-10
Amazon


最終更新日時：2022-07-15 16:34

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » 系列要素単位のデータラベルフォント操作をVBAで行う

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓
3年前(2021年4月)の
人気記事
1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:IF関数で○○以上××以下という条件を指定する
3位:右から（後から・末尾から）n文字を削除したい
4位:IF関数で空白なら空白にする
5位:COUNTIF関数で「○○以上」「○○以下」の指定
6位:IF関数で空白でない場合・空白でなければの書き方
7位:左から（前から・先頭から）n文字削除する方法



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

検索


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

.