Sub test()
Max = Cells(1, 1).End(xlDown).Row
With ActiveSheet.Shapes.AddChart.Chart
.ChartType = xlLine
.SetSourceData Range("A1:D" & Max & "")
.HasTitle = True 'グラフタイトルの追加
.ChartTitle.Text = "TEST"
End With
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Range("A1").Activate
End Sub
以下の参考に
これから徐々にレベルアップ