VBA～縦軸の最大値、最小値を設定しよう～Excel

VBAでグラフの数値軸の最大値、最小値を変更する方法を解説します。

数値軸の最大値、最小値を変更したい場合、ChartオブジェクトのAxis.MaximumScaleプロパティで最大値を、Axis.MinimumScaleプロパティで最小値を設定します。Axisオブジェクトで数値軸を指定したい場合はAxes(xlValue)と書きます。数値軸の第2軸を指定したい場合はAxes(xlValue, 2)と書きます。

既にグラフがある場合

下の画像において下のコードを実行すると数値軸の最大値が1500、最小値が800に設定されます。

Sub test1()

ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MaximumScale = 1500
ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MinimumScale = 800

End Sub

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

グラフ作成時にグラフに表を組み合わせる

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

Sub test2()

With ActiveSheet.Shapes.AddChart.Chart

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

.Axes(xlValue).MaximumScale = 1500
.Axes(xlValue).MinimumScale = 800

End With

End Sub

コードの説明

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

ActiveSheet.Shapes.AddChart.Chart

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

.ChartType = xlColumnClustered

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

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

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

.Axes(xlValue).MaximumScale = 1500

数値軸の最大値を1500に設定しています。

.Axes(xlValue).MinimumScale = 800

数値軸の最小値を800に設定しています。