【ExcelVBA】グラフ軸の最小値と最大値をInputBoxで取得する方法

こんなあなたにおすすめ

Excelでグラフを扱っていると、軸の最小値、最大値を変更することがあります。

軸の最小値、最大値を変更する方法は、こちら。
InputBoxの使い方は、こちら。

今回は、「グラフの軸の最小値、最大値」x「InputBox」を用いてグラフの数値軸を変更する方法について解説します。

x軸の最小値、最大値、目盛間隔を変更する方法

Sub changeXScale()

    Dim cht As ChartObject
    Dim xScale_min As Long
    Dim xScale_max As Long
    Dim scaleInterval As Long
    
    xScale_min = InputBox("x軸の最小値を入力してください。", "y軸の最小値", 0)          'x軸の最小値を変数に格納
    xScale_max = InputBox("x軸の最大値を入力してください。", "y軸の最大値", 10)         'x軸の最大値を変数に格納
    scaleInterval = InputBox("x軸の目盛間隔を入力してください。", "目盛り間隔", 10)     'x軸の目盛間隔を変数に格納
    
    For Each cht In ActiveSheet.ChartObjects
    
        cht.Chart.Axes(xlCategory).MinimumScale = xScale_min    'x軸の最小値を設定
        cht.Chart.Axes(xlCategory).MaximumScale = xScale_max    'x軸の最大値を設定
        cht.Chart.Axes(xlCategory).MajorUnit = scaleInterval    'x軸の目盛間隔を設定
    Next cht

End Sub

①x軸の最小値入力用のInputBoxが表示

②x軸の最大値入力用のInputBoxが表示

③x軸の目盛間隔入力用のInputBoxが表示

軸の最小値、最大値を変更する方法は、こちら。
InputBoxの使い方は、こちら。

y軸の最小値、最大値、目盛間隔を変更する方法

Sub changeYScale()

    Dim cht As ChartObject
    Dim yScale_min As Long
    Dim yScale_max As Long
    Dim scaleInterval As Long
    
    yScale_min = InputBox("y軸の最小値を入力してください。", "y軸の最小値", 0)          'y軸の最小値を変数に格納
    yScale_max = InputBox("y軸の最大値を入力してください。", "y軸の最大値", 10)         'y軸の最大値を変数に格納
    scaleInterval = InputBox("y軸の目盛間隔を入力してください。", "目盛り間隔", 10)     'y軸の目盛間隔を変数に格納
    
    For Each cht In ActiveSheet.ChartObjects
    
        cht.Chart.Axes(xlValue).MinimumScale = yScale_min    'y軸の最小値を設定
        cht.Chart.Axes(xlValue).MaximumScale = yScale_max    'y軸の最大値を設定
        cht.Chart.Axes(xlValue).MajorUnit = scaleInterval    'y軸の目盛間隔を設定
    Next cht
End Sub

①y軸の最小値入力用のInputBoxが表示