【エクセルVBA】マクロで棒グラフを自動作成！領域指定するだけ！

この記事では、VBAを使って指定領域を参照した棒グラフを自動作成する方法をご紹介していきます。

基本的にはコードの中でデータの存在領域を指定するだけでOKです。

また、グラフのタイトルや縦軸ラベル、各種文字サイズ等も自由に変更できるようになっています。

それではさっそくやっていきましょう。

※この記事の内容を実行するには、VBAの実行環境を整えておく必要があります。

VBAを使ったことがない人は、まずは以下の記事を参考に環境構築を進めましょう。

エクセルマクロ（VBA)の始め方！初心者向けに画像を使って詳細解説

VBAで棒グラフを作成するサンプルコード
おわりに

VBAで棒グラフを作成するサンプルコード

いきなりですが、以下が冒頭に紹介した棒グラフを作成するサンプルコードです。

Sub Bar_graph()
    '領域の指定
    Set data_region = Range("A1:B5")
    
    'グラフ作成
    data_region.Select
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    
    'グラフの見栄え調整
    With ActiveChart
        'グラフタイトル挿入&文字サイズ調整
        .ChartTitle.Text = "棒グラフ"
        .ChartTitle.Format.TextFrame2.TextRange.Font.Size = 14
        '横軸ラベルの文字サイズ調整
        .Axes(xlCategory).TickLabels.Font.Size = 12
        '縦軸目盛りの文字サイズ調整
        .Axes(xlValue, xlPrimary).TickLabels.Font.Size = 10
        '縦軸タイトルの挿入＆文字サイズ調整
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Text = "縦軸"
        .Axes(xlValue).AxisTitle.Font.Size = 12
    End With
End Sub

簡単に使い方を解説しておきます。

〇３行目でデータの存在領域を指定する

〇１０行目以降でグラフの見栄え調整（コード中のコメント参照）

やることはたったのこれだけです。

非常に簡単ですね。