動作検証バージョン：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
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で設定する
