Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » 軸ラベル・AxisTitleのフォント色をVBAで設定する

軸ラベル・AxisTitleのフォント色をVBAで設定する

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

「Excel VBA グラフ 軸ラベル フォント 色」
といった検索キーワードでアクセスがありました。

グラフの軸ラベル（AxisTitle）のフォント色をVBAで変更するには、どのようなコードを書けばいいのかを探していた方による検索でしょうか。

軸ラベルのフォント色を設定するサンプルマクロ

数値軸に軸ラベルの表示されているグラフがアクティブな状態で以下のExcelマクロを実行すると、軸ラベルの文字色が赤色になります。

Sub 軸ラベルのフォント色を設定する()
　Dim ax As Axis
　Set ax = ActiveChart.Axes(xlValue)
　ax.AxisTitle.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB _
　　　= RGB(255, 0, 0)
End Sub

「AxisTitle.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB」の部分は、以下の階層を辿るコードです。

AxisTitle（AxisTitleプロパティで取得）
└ ChartFormat（AxisTitle.Formatプロパティで取得）
　　└ TextFrame2（ChartFormat.TextFrame2プロパティで取得）
　　　　└ TextRange2（TextFrame2.TextRangeプロパティで取得）
　　　　　　└ Font2（TextRange2.Fontプロパティで取得）
　　　　　　　　└ FillFormat（Font2.Fillプロパティで取得）
　　　　　　　　　　└ ColorFormat（FillFormat.ForeColorプロパティで取得）
　　　　　　　　　　　　└ RGBプロパティ

非表示のAxisTitle.Fontプロパティもある

上記の「AxisTitle.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB」を辿るのが、最近のExcelの正式な仕様ですが、実はもっと簡単なコードでも済ませられます。

Sub 軸ラベルのフォント色を設定する__Fontオブジェクト()
　Dim ax As Axis
　Set ax = ActiveChart.Axes(xlValue)
　ax.AxisTitle.Font.Color = RGB(0, 255, 0)
End Sub

軸ラベルを表すAxisTitleオブジェクトには、非表示に設定されているFontプロパティが用意されています。

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


最終更新日時：2022-07-02 06:31

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » 軸ラベル・AxisTitleのフォント色を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.

.