Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » グラフ第2軸のタイトル・軸ラベルをVBAで設定する

グラフ第2軸のタイトル・軸ラベルをVBAで設定する

動作検証バージョン:64bit Windows 10 Pro + 32bit Excel(バージョン2204 ビルド15128.20178 Microsoft Store)

「vba 第2軸 タイトル」
「vba 二軸 軸ラベル」
のような検索キーワードでアクセスが時折あります。

Excel VBAでグラフの第2軸のタイトル(軸ラベル)を表示・設定するにはどのようなコードを書けばいいのか探していらしたのでしょう。

第2軸のタイトル・軸ラベルを設定するサンプルマクロ

第2軸の表示されているグラフがアクティブな状態で、以下のExcelマクロを実行してください。

Sub 第2軸の軸ラベルを設定する()
 Dim ax As Axis
 Set ax = ActiveChart.Axes(xlValue, xlSecondary)
 ax.HasTitle = True
 ax.AxisTitle.Text = "第2軸タイトル"
 ax.AxisTitle.Orientation = xlVertical
End Sub

第2軸に「第2軸タイトル」と軸ラベルが縦書きで表示されます。

第2軸のタイトル・軸ラベルを操作するオブジェクトモデル

グラフを表すChartオブジェクトに用意されているAxesメソッドの第1引数に定数xlValueを、第2引数に定数xlSecondaryを指定すると、

数値軸の第2軸を表すAxisオブジェクトを取得できます。

引数名のTypeとAxisGroupを使って

Set ax = ActiveChart.Axes(Type:=xlValue, AxisGroup:=xlSecondary)

としてもOKですが、定数から意味は十分読み取れますから、

Set ax = ActiveChart.Axes(xlValue, xlSecondary)

としています。

第2軸を表すAxisオブジェクトが取得できてしまえば、あとは主軸の軸ラベルを表示・設定するのと同じです。

AxisオブジェクトのHasTitleプロパティに論理値Trueを設定することで軸ラベルを表示し、

ax.HasTitle = True

Axis.AxisTitleプロパティで取得したAxisTitleオブジェクトのTextプロパティで軸ラベルに表示する文字列を設定して、

ax.AxisTitle.Text = "第2軸タイトル"

AxisTitleオブジェクトのOrientationプロパティに定数xlVerticalを設定することで縦書きにしています。

ax.AxisTitle.Orientation = xlVertical

最終更新日時:2022-07-05 18:01

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » グラフ第2軸のタイトル・軸ラベルをVBAで設定する

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » グラフ第2軸のタイトル・軸ラベルをVBAで設定する

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

検索


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

.