OfficeType
  1. ホーム
  2. Excel VBA
  3. グラフ
  4. グラフの軸ラベルを縦書きにしよう

VBA～グラフの軸ラベルを縦書きにしよう～Excel

VBAでグラフの軸ラベルを縦書きに設定する方法を解説します。

縦軸ラベルを縦書きにしたい場合はAxisTitle.Orientationプロパティを設定します。縦書きにしたい場合はxlVerticalに設定します。縦軸が数値軸の場合Axesメソッドの第一引数にxlValueを指定します。上のコードを実行すると縦軸ラベルが縦書きになります。

既にグラフがある場合

下の画像において下のコードを実行すると縦軸ラベルが縦書きに設定されます。

image-01 

Sub test1()

ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).AxisTitle.Orientation = xlVertical

End Sub

image-02

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

グラフ作成時に縦軸ラベルを縦書きに設定

image-03

下のコードを実行するとグラフ作成時に縦軸ラベルを縦書きに設定します。 

Sub test2()

With ActiveSheet.Shapes.AddChart.Chart

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

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

.Axes(xlValue).AxisTitle.Orientation = xlVertical

End With

End Sub

コードの説明

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

ActiveSheet.Shapes.AddChart.Chart

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

image-04 

.ChartType = xlColumnClustered

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

image-05 

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

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

.Axes(xlValue).HasTitle = True

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

image-06 

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

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

image-07 

.Axes(xlValue).AxisTitle.Orientation = xlVertical

縦軸ラベルを縦書きに設定しています。今回は縦軸が数値軸なのでAxesメソッドの引数にxlValueを指定しています。

image-08