【Excel VBA】棒グラフ作成マクロ▽ソースコード

'↓↓↓↓↓Sheet1（データと同じシート）に

Option Explicit

Option Base 0

Public Sub 棒グラフ作成マクロ()

    Dim RngPos As Range

    '

    If Sheet1.ChartObjects.Count = 1 Then

       Sheet1.ChartObjects(1).Delete

    End If

    '

    Set RngPos = Sheet1.Range("B5:G12")           '←配置領域

    Sheet1.ChartObjects.Add RngPos.Left, RngPos.Top, 　_

                                         RngPos.Width, RngPos.Height

    With Sheet1.ChartObjects(Sheet1.ChartObjects.Count).Chart

        .ChartType = xlColumnClustered                 '←グラフ種別

        .SetSourceData Source:=Range("B2:G3")    '←データセル指定

        .PlotBy = xlRows                                       '←データ配列

        .HasTitle = True                                         '←タイトル

        .ChartTitle.Text = "福井県の感染者数推移"

        .Legend.Delete                                          '←凡例

    End With

End Sub

実行前