【Excel VBA】複数のグラフのX軸を一括で変更する方法｜時間軸の手動調整を自動化

2024年5月7日2025年12月22日

概要

Excelでデータを可視化する際に、複数のグラフを使って時間変化を表現している方も多いのではないでしょうか。

しかし、X軸が「時間軸」の場合、期間の変更や区切りの調整が必要になるたびに、すべてのグラフを手動で設定し直すのは非常に手間です。

今回は、Excel VBAを使ってシート内のすべてのグラフのX軸（最小値・最大値・区切り幅）を一括で変更する方法をご紹介します。

実現したい仕様

以下のような構成で、指定した数値に基づいてX軸を自動変更する仕様です。

セル A1 に「X軸の最小値」
セル A2 に「X軸の最大値」
セル A3 に「区切り幅（メジャーユニット）」
図形で作成した「実行ボタン」を押すと、現在のシート内すべてのグラフのX軸が一括で変更される

実装コード（VBA）

以下のコードを標準モジュールに貼り付けて、図形にマクロ登録してください。

Sub UpdateAxisMajorUnit()
    Dim chrt As ChartObject
    Dim minValue As Double
    Dim maxValue As Double
    Dim majorUnit As Double

    With ActiveSheet
        ' A1〜A3の値を読み取り
        minValue = .Range("A1").Value
        maxValue = .Range("A2").Value
        majorUnit = .Range("A3").Value

        ' シート内すべてのグラフのX軸を更新
        For Each chrt In .ChartObjects
            With chrt.Chart.Axes(xlCategory, xlPrimary)
                .MinimumScale = minValue
                .MaximumScale = maxValue
                .MajorUnit = majorUnit
            End With
        Next chrt
    End With

    MsgBox "完了しました", vbInformation
End Sub