【ExcelVBA】選択した複数グラフの数値軸を変更する方法

こんなあなたにおすすめ

Excelでグラフを扱っていると、選択した複数グラフを一括で変更したいということがあります。

「Selection × For Each」を組み合わせることで、複数のグラフを操作することが可能になります。

今回は、「Selection × For Each」を使って、複数のグラフの数値軸を変更する方法について解説します。

複数のグラフの名前を取得

まずは、「name」を使って、選択したグラフの名前を取得できるか確認してみましょう。

Sub getGraphName()

    Dim cht As ChartObject

    For Each cht In Selection
        MsgBox cht.name
    Next cht
    
End Sub

コードを実行すると、選択したグラフの名前がメッセージボックスに順番に表示されます。

複数のグラフの数値軸を変更

先ほど、選択したグラフの名前を取得し、プログラムが問題なく動くことが確認できましたので、実際に数値軸を変更していきましょう。

横軸を変更

「xlCategory」を使って、グラフの横軸を変更してみましょう。

Sub changeGraphScale()

    Dim cht As ChartObject

    For Each cht In Selection

'        MsgBox cht.Name

        cht.Chart.Axes(xlCategory).MinimumScale = 0    'x軸の最小値を変更
        cht.Chart.Axes(xlCategory).MaximumScale = 10   'x軸の最大値を変更
        cht.Chart.Axes(xlCategory).MajorUnit = 2       'x軸の目盛間隔を変更

    Next cht
    
End Sub

【実行前】

【実行後】

縦軸を変更

「xlValue」を使って、グラフの縦軸を変更してみましょう。

Sub changeGraphScale()
    Dim cht As ChartObject

    For Each cht In Selection

'        MsgBox cht.Name

        cht.Chart.Axes(xlValue).MinimumScale = 0    'y軸の最小値を変更
        cht.Chart.Axes(xlValue).MaximumScale = 10   'y軸の最大値を変更
        cht.Chart.Axes(xlValue).MajorUnit = 2       'y軸の目盛間隔を変更

    Next cht
    
End Sub

【実行前】

【実行後】

まとめ

ここまで、「Selection × For Each」を使って複数グラフの数値軸を変更する方法について解説しました。

後になって大量のグラフに変更を加えたいというときに便利ですので、ぜひ使ってみてください。

Excelで作業効率をアップしたい方は、下記の記事もご参照ください。
>>Excelのショートカット一覧 覚えて作業効率アップ!!
>>Excelで覚えておくべき関数 作業効率アップ間違いなし

【Excelについて学びたい方】
Excel 最強の教科書[完全版]

【Excel VBAについて学びたい方】
Excel VBA 脱初心者のための集中講座