VBA～グラフで軸の単位を変更しよう～Excel

VBAでグラフの軸単位を変更する方法を解説します。

グラフの軸単位を変更したい場合はAxis.DisplayUnitプロパティを設定します。単位を百にしたい場合はxlHundredsに設定します。単位は初期設定では横書きで見にくいのでDisplayUnitLabel.Orientationプロパティで縦書きのxlVerticalを設定しています。

既にグラフがある場合

下の画像において下のコードを実行すると縦軸の単位が百になり、表示単位ラベルが縦書きになります。

Sub test1()

With ActiveSheet.ChartObjects(1).Chart

.Axes(xlValue).DisplayUnit = xlHundreds
.Axes(xlValue).DisplayUnitLabel.Orientation = xlVertical

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).DisplayUnit = xlHundreds
.Axes(xlValue).DisplayUnitLabel.Orientation = xlVertical

End With

End Sub

コードの説明

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

ActiveSheet.Shapes.AddChart.Chart

グラフエリアを追加しています。

.ChartType = xlColumnClustered

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

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

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

.Axes(xlValue).DisplayUnit = xlHundreds

縦軸の軸単位を百に設定しています。

.Axes(xlValue).DisplayUnitLabel.Orientation = xlVertical

縦軸の表示単位ラベルを縦書きに設定しています。