VBAでグラフを作成する方法！フレキシブルな棒グラフ編

エクセルでグラフを作成するとき、どのような操作をしてますか？

データを選択して、リボンからグラフを挿入して・・・という感じが多いでしょうか。

これで思う通りのグラフになればよいですが、「それは横軸のデータなんだよな」なんて、手直しが必要になることもありますよね。

よく作るグラフであれば、マクロで組んでしまった方が楽だったりします。

この記事では、グラフの種類を棒グラフに絞って、「VBAでグラフを作成する方法」について解説します。

この記事の内容

１．ワークシート上の準備
２．グラフを作成するVBAコード
３．実行結果の例
４．まとめ

１．ワークシート上の準備

こんにちは。エクセルマン・ブリーダーのしもむぎ(@re_znd13)です。

今回は「よく使う棒グラフを手間をかけずに作りたい！」、「データを入力して実行するだけのフレキシブルなマクロを組みたい！」というコンセプトで進めていきます。

まずはデータを入力する欄をワークシート上に用意します。

図の赤線で囲った部分はタイトルを入力するセルです。

図の青線で囲った部分には横軸のデータを入力します。A列が名称で、B列から右にデータを入力します。今回はデータ数が何個でもよいような仕様を考えましょう。

図のオレンジ線で囲った部分にはグラフにしたいデータを入力します。A列に凡例、B列から右にデータを入力します。こちらもデータ数が何個でもよいような仕様を考えていきます。またデータの系列数も何個でもよいような仕様とします。

この表にデータを入力すれば、どんなデータ数であっても棒グラフにしちゃうマクロを作成したい、ということです。

２．グラフを作成するVBAコード

それではVBAコードを紹介します。

コメントとしてコード中に記述していますが、すでにグラフがある場合（２回目以降）はそのグラフを削除することとしました。

[B]部分でグラフを作成しますが、アクティブセルの位置によっては空でなくデータ系列が入ってしまいますので、これは削除することとしています。

[C]部分では表に入力された系列数とデータ数を検出します。

[E]部分で１系列ずつ追加していきますので、[D]部分のように系列数だけループさせます。

[F]部分がグラフの設定になります。グラフの種類と横軸、データ、凡例を設定しています。

Sub 棒グラフ()
Dim i, p, q As Long
Dim chrt As Shape

'[A]すでにグラフがある場合は削除します
For Each chrt In ActiveSheet.Shapes
    chrt.Delete
Next chrt

'[B]空のグラフを作成します
'  データ系列が設定されてしまった場合は削除します
ActiveSheet.Shapes.AddChart.Chart.ChartType = xlColumnClustered
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.ClearContents

'[C]データ系列数と各系列のデータ数を検出します
p = Range("B2").End(xlDown).Row - 2
q = Range("B2").End(xlToRight).Column

'[D]データ系列数だけ繰り返します
For i = 1 To p

'[E]グラフにデータ系列を作成します
    ActiveSheet.ChartObjects(1).Chart.SeriesCollection.NewSeries

'[F]データ系列の設定を行います
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(i)
        .ChartType = xlColumnClustered  '棒グラフに設定
        .XValues = Range(Cells(2, 2), Cells(2, q))  '横軸の値を設定
        .Values = Range(Cells(2 + i, 2), Cells(2 + i, q))   'データを設定
        .Name = Cells(2 + i, 1) '系列名を設定
    End With

Next i

End Sub