動作検証バージョン: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
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
Dim ax As Axis
Set ax = ActiveChart.Axes(xlValue)
ax.AxisTitle.Font.Color = RGB(0, 255, 0)
End Sub
軸ラベルを表すAxisTitleオブジェクトには、非表示に設定されているFontプロパティが用意されています。
最終更新日時:2022-07-02 06:31
[スポンサードリンク]
Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » 軸ラベル・AxisTitleのフォント色をVBAで設定する