【エクセルVBA】グラフを自動作成⇒グラフ名を変更する方法！

この記事では、エクセルVBAを使って、

①シート上のデータからグラフを作成

②作成したグラフの名前を変更

という一連の作業を行うVBAコードをご紹介していきます。

VBAで資料作成までを行うときなどに、役立つ情報になっていると思います。

それでは早速やっていきます！

※ここで言うグラフの名前とは、グラフ上のタイトルのことではありません。VBAコード上でグラフを指定するときに必要となる名前のことです。

紹介するスキルの概要説明
紹介するスキルの完成形
グラフの自動作成&グラフ名変更するVBAコード
おわりに

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

まずはじめに今回の記事で紹介する内容がどんなときに役立つのかをご紹介しておきます。

VBAでデータ集計などを行っている人からすると、

「そのまま報告資料用のグラフも作りたい。」

と考えるようになるものです。

そんなとき、この記事で紹介するグラフを自動作成するスキルが役に立ちます。

また、作成したグラフの軸設定やグラフの線の色の変更などもVBAで行うことは可能です。

そのような処理を行う際、どのグラフにその作業を適用するのかを指定する必要があります。

しかし、残念ながらシート上にグラフが複数ある場合、どのグラフがなんという名前なのかは人間が確認しなければわかりません。

（※通常エクセル上にグラフを作成するとグラフ１というように適当な番号を振られて名前が付けられています。）

そのような人の目による確認作業を省略するためには、自動で作成したグラフにきちんとあなたがわかる名前をつけておくことが重要です。

そのため今回は、自動でグラフを作成する方法に加えて、グラフを作成したと同時にグラフに名前を設定する方法をセットでご紹介しています。

※変更する名前はあらかじめセル上に記述しておけるようにしています。

紹介するスキルの完成形

今回ご紹介するVBAコードでは以下のような作業を自動で実行していきます。

簡単に説明すると、

①セルに記述された範囲を参照した散布図を作成

②①で作成したグラフの名前をセル（D3セル）データに変更する

※グラフの名前はグラフを選択したときに左上に表示されます。

ということを行っていきます。

今回は上の絵のように線のない、マーカーだけの散布図を作成しますが、この記事中のコードを応用すれば、どんなグラフにも適用可能です。

イメージがつかめた！＆自分のやりたいことと一致している！

という方はぜひ続きをご覧ください。

グラフの自動作成&グラフ名変更するVBAコード

それでは早速ですが、先ほど紹介した内容を再現するVBAコードをご紹介します。

※今回はマーカーのみの散布図を作成しています。

◆散布図を作成⇒グラフ名変更するVBAコードサンプル

Sub Make_graph()
    Dim GRF_name_B  As String
    Dim C_name  As Integer
    Dim GRF_name_A As String
    '作成後のグラフ名
    GRF_name_A = Range("D3")
    'データ範囲を取得する
    X_AXIS = Range("E3")
    Y_AXIS1 = Range("F3")
    Y_AXIS2 = Range("G3")
    'ベースとなるグラフを挿入する
    ActiveSheet.Shapes.AddChart2(-1, -4169).Select
    With ActiveChart
        '１つ目のデータ作成
        .SeriesCollection.NewSeries
        .FullSeriesCollection(1).XValues = ActiveSheet.Name & "!" & X_AXIS
        .FullSeriesCollection(1).Values = ActiveSheet.Name & "!" & Y_AXIS1
        '２つ目のデータ作成
        .SeriesCollection.NewSeries
        .FullSeriesCollection(2).XValues = ActiveSheet.Name & "!" & X_AXIS
        .FullSeriesCollection(2).Values = ActiveSheet.Name & "!" & Y_AXIS2
        'グラフの名前を変更する
        .Parent.Name = GRF_name_A
    End With
End Sub

コードのポイント解説①

VBAでグラフを自動作成するには

ActiveSheet.Shapes.AddChart2（-1,*）

というスキルを使います。

今回紹介した散布図以外のグラフを作成したい場合、この*を変更する必要があります。

この部分に入力する数値と出力すれるグラフの一覧表は以下のマイクロソフトの公式ページに記載されておりますので、ご確認ください。

Xlcharttype クラス列挙 (Excel) | Microsoft Docs

例えば3-D縦棒グラフを作成したい場合は、

ActiveSheet.Shapes.AddChart2（-1,-4100）

と変更すればOKです。

コードのポイント解説②

グラフデータを参照するには、With構文内で以下のように記述します。