Excel2013 ExcelVBAで散布図

質問

Excel2013 ExcelVBAで散布図を書く方法を教えてください。

Excel2013にてA列とC列で散布図を作成するため
excelVBAで以下のコードを書いています。

Sub hogehoge()
Dim aa As Range
Dim cc As Range
Dim aacc As Range

Set aa = Range(Cells(1, 1), Cells(6, 1))
Set cc = Range(Cells(1, 3), Cells(6, 3))
Set aacc = Union(aa, cc)
aacc.Select

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
End Sub

上記を実行すると左側のグラフになってしまうのですが
右側のグラフを書きたいんですがどうしたらいいのでしょうか？

よろしくお願いします。

回答No.1

f272 · ベストアンサー

こんな感じ？
Sub hogehoge()
Dim aa As Range
Dim cc As Range
Set aa = Range(Cells(2, 1), Cells(6, 1))
Set cc = Range(Cells(2, 3), Cells(6, 3))
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
.ChartType = xlXYScatterLinesNoMarkers
.HasTitle = True
End With
With ActiveChart.SeriesCollection.NewSeries
.XValues = aa
.Values = cc
.Name = Cells(1, 3)
End With
End Sub