◆データ範囲を指定してグラフを作成する

  一番簡単にグラフを作成する方法です。

  各月の「売上」と「人件費」の棒グラフを作成する方法です。
	

Sub sample4()

    Dim ThisSheet_Name As String
    
    '現在アクティブになっているシート名を取得
    ThisSheet_Name = ActiveSheet.Name
    
    '空のグラフをアクティブになっているシートに作成する
    With Charts.Add

        .Location Where:=xlLocationAsObject, Name:=ThisSheet_Name

    End With
    
    'グラフのデータ範囲を指定する
    ActiveChart.SetSourceData Range("B1:H3")

End Sub

  空のグラフを作成して、

  Chartオブジェクトに対して、SetSourceDataメソッドでデータ範囲を指定

  してやれば、後は勝手にやってくれます。