【メモ】エクセルのグラフ軸範囲一括で変更

For Eachで各チャートオブジェクトのX軸範囲を変更する。

Sub アクティブシート上のグラフ軸範囲変更()
Dim cht As ChartObject

For Each cht In ActiveSheet.ChartObjects
    With cht.Chart.Axes(xlCategory)
    .MinimumScale = 43101 '2018/1/1
    .MaximumScale = 43404 '2018/10/31
    End With
Next cht

End Sub

グラフが2列並んでいて、左側に並べてある（左位置8.25）ものだけ縦軸変更

Sub 左のグラフの縦軸範囲変更()
Dim cht As ChartObject

For Each cht In ActiveSheet.ChartObjects
    If cht.Left = 8.25 Then
        With cht.Chart.Axes(xlValue)
        .MinimumScale = 18 '15℃
        .MaximumScale = 30 '30℃
        End With
    End If
Next cht

End Sub