【VBA】複数のグラフを一括作成する方法！サンプルデータを使って実演！

たくさんのデータを分析する際、一つのグラフに複数データを一括表示させるより、ひとつひとつのデータを別々のグラフに出力した方が、分析効率が上がることもあると思います。

この記事では、そんな状況で役に立つ、複数のグラフをVBAを使って一括作成する方法をご紹介しています。

さっそくやっていきましょう！

紹介するスキルの概要説明
複数グラフを一括作成するVBAコード
おわりに

紹介するスキルの概要説明

まずはじめにこの記事で紹介する内容を簡単にご説明しておきます。

今回は、以下のようにAからD列までにいくつかのデータが入っている状態で、

各データを参照したグラフを別々に、かつ一括作成する方法をご紹介します。

（今回は、X軸はすべてのグラフで共通とし、A列を参照するようにしています。X軸をそれぞれ変更した場合でも、この記事の内容を少し応用するだけで対応可能です。）

あなたのやりたいことと一致していれば、ぜひ続きをご覧ください。

複数グラフを一括作成するVBAコード

さっそくですが、先ほどご紹介した内容を実現するVBAコードは以下の通りです。

Sub Make_graph()
    '変数の型を宣言
    Dim X_AXIS  As String
    Dim Y_AXIS As String
    Dim GRF_name As String
    'データが３つあるので３回繰り返す
    For i = 0 To 2
        '作成後のグラフ名
        GRF_name = Cells(1, 2 + i)
        'データ範囲を取得する
        X_AXIS = "A2:A22"
        Y_AXIS = Chr(66 + i) & "2:" & Chr(66 + i) & "22"
        'グラフ（散布図）を挿入する
        ActiveSheet.Shapes.AddChart2(-1, -4169).Select
        With ActiveChart
            '１つ目のデータ作成
            .SeriesCollection.NewSeries
            .FullSeriesCollection(1).XValues = ActiveSheet.Name & "!" & X_AXIS
            .FullSeriesCollection(1).Values = ActiveSheet.Name & "!" & Y_AXIS
            'グラフの名前、タイトルを変更する
            .Parent.Name = GRF_name
            .ChartTitle.Text = GRF_name
        End With
        'グラフの位置調整
        ActiveSheet.Shapes(GRF_name).Left = Cells(1, i * 7 + 1).Left
    Next
End Sub

◆コードのポイント解説

今回のポイントは、作成するグラフが参照するセル範囲をうまく指定してあげるところです。

X軸となるA列は固定することにしたので、”A2:A22″というように普通に指定すれ良いのですが、Y軸となるデータは各グラフごとにことなる場所を指定する必要があります。

今回はB列、C列、Ｄ列というように順番に領域を指定するためにChr関数というものを用いています。

Chr関数はある数値を入力してあげれば、その数値に対応する文字を返してくれる関数です。

たとえば

Chr(66)⇒B

Chr(67)⇒C

Chr(68)⇒D

という感じです。

Chr関数に入れる数値と出力される文字について詳しく知りたい方は以下のマイクロソフトの公式ページをご確認ください。

文字セット (0 から 127) | Microsoft Docs