VBA～グラフに軸ラベルを表示しよう～Excel

VBAでグラフに軸ラベルを表示する方法を解説します。

軸ラベルを設定したい場合はAxis.HasTitleプロパティで軸ラベルを追加し、AxisTitle.Textプロパティで軸ラベルのタイトルを設定します。Axexメソッドの第一引数にxlValueを指定すると数値軸の操作ができ、xlCategoryを指定すると項目軸の操作ができます。上のコードを実行すると数値軸、項目軸に軸ラベルを追加し、軸ラベルの名前を設定します。

既にグラフがある場合

下の画像において下のコードを実行すると数値軸に"売上個数"という軸ラベルが設定され、項目軸に"曜日"という軸ラベルが設定されます。

Sub test1()

With ActiveSheet.ChartObjects(1).Chart

.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Text = "売上個数"

.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Text = "曜日"

End With

End Sub

グラフのインデックス番号はグラフの作成順に割り振られます。今回はグラフが1つしかないのでグラフのインデックス番号は1となりChartObjects(1)となります。

グラフ作成時に軸ラベルも設定する

下のコードを実行するとグラフ作成時に軸ラベルも設定されます。

Sub test2()

With ActiveSheet.Shapes.AddChart.Chart

.ChartType = xlColumnClustered
.SetSourceData Range(Range("A3"), Range("D10"))

.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Text = "売上個数"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Text = "曜日"

End With

End Sub

コードの説明

WithからEnd Withまでがグラフの作成、設定です。

ActiveSheet.Shapes.AddChart.Chart

グラフを書くためのキャンバスを作成しています。

.ChartType = xlColumnClustered

グラフの種類を設定しています。xlColumnClusteredは棒グラフの集合縦棒になります。

.SetSourceData Range(Range("A3"), Range("D10"))

グラフのデータ範囲を設定しています。

.Axes(xlValue).HasTitle = True

数値軸に軸ラベルを追加しています。

.Axes(xlValue).AxisTitle.Text = "売上個数"

数値軸の軸ラベルの名前を売上個数に設定しています。

.Axes(xlCategory).HasTitle = True

項目軸に軸ラベルを追加しています。

.Axes(xlCategory).AxisTitle.Text = "曜日"

項目軸の軸ラベルの名前を曜日に設定しています。