【Excel VBA】ボタン1つでグラフを作成・更新できるマクロを紹介

今回はボタン1つでグラフを作成・更新できるマクロを紹介したいと思います。

パワポで資料を作成するとき等に役立つと思いますので、是非参考にしていただければと思います！

過去に、VBAに関する記事を投稿していますので、是非こちらも併せてご覧ください！

【Excel VBA】マクロを使ってメールを自動作成・送信する方法を紹介【Outlook】

今回はマクロを使ってメールを自動作成・送信する方法を紹介したいと思います。VBAを使えるよ...

【Excel VBA】指定したフォルダ内のファイルを全て処理する方法

この記事ではExcel VBAで指定したフォルダ内のファイルを全て処理する方法を紹介しています。基本的な使い方だけでなく,応用が利く部分もかなりありますので、気になる方、やり方がわからない方は是非参考にしていただければと思います。

前準備
コードの紹介
1. SetSourceDataを動的に変化させる
まとめ

前準備

マクロを使用する前に事前に準備しておくもものが3点あります。それが、

VBAを使用できるようにしておく(開発タブを表示させておく)
グラフを準備する
データを準備する

に、なります。至極当然なことですね、はい（笑）

上記3つがないとマクロが使えない・動かなくなってしまいますので、それぞれ順を追って説明します。

VBAを使用できるようにしておく(開発タブを表示させておく)

今回はマクロを使用しますので、先にVBAが使える状態にしておきます。

VBAを使えるようにする方法については過去の記事で紹介していますので、こちらをご覧ください！

【Excel VBA】VBAを使えるようにする方法をざっくり説明【マクロ】

この記事ではExcelでVBAを使用する為の事前準備について説明しています。「VBAを使いたいけど、どこにあるか見当たらない...」といった方に向けた記事になります。やり方がわからない方は是非参考にしていただければと思います。

グラフを準備する

次にグラフを挿入します。グラフを挿入するには、「挿入」タブ→「グラフ」グループから挿入することが出来ます。

今回は「2-D 縦棒」内の集合縦棒を使用します。オーソドックスな棒グラフですね。

データを準備する

最後にグラフで使うデータを準備します。

今回は以下のデータを使用します。商品ごとに値段が表示されているものです。

以上で前準備は完了になります。

コードの紹介

それではコードの紹介です。


Sub MakeGraph()
    
    Dim MySht                   As Worksheet
    Dim objChart                As Object
    
    Application.ScreenUpdating = False
    
    Set MySht = ThisWorkbook.Worksheets("グラフ")            'グラフシートを取得
    
    Set objChart = MySht.ChartObjects(1)                     'グラフエリアを取得
    
    
    With objChart.Chart
        .ChartArea.ClearContents                  　　       'グラフの中身だけ削除
        .SetSourceData MySht.Range(MySht.Cells(8, 11), MySht.Cells(Rows.Count, 12).End(xlUp))   'データ範囲の指定
    
        .HasTitle = True                                     'グラフタイトルの有効化
        .ChartTitle.Text = "各商品の値段一覧"                'グラフタイトルの設定
        
        .Axes(xlValue, 1).HasTitle = True                    '縦軸ラベルタイトルの有効化
        .Axes(xlValue, 1).AxisTitle.Text = "値段"            '縦軸ラベルタイトルの設定
        
        .Axes(xlCategory, 1).HasTitle = True                 '横軸ラベルタイトルの有効化
        .Axes(xlCategory, 1).AxisTitle.Text = "商品"         '横軸ラベルタイトルの設定
        
        .Axes(xlValue).MaximumScale = 1000                   '縦軸の最大値
        .Axes(xlValue).MinimumScale = 100                    '縦軸の最小値
    End With
    
    Set MySht = Nothing                                      'オブジェクトの解放
    Set objChart = Nothing                                   'オブジェクトの解放
    
    Application.ScreenUpdating = True
    
End Sub

標準モジュール等に上記コードを貼り付け、コードを実行するとデータを基にグラフが自動作成されます。