こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

よろしくお願いします。

投稿日時 - 2016-11-08 21:33:20

QNo.9253270

困ってます

質問者が選んだベストアンサー

こんな感じ?
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

投稿日時 - 2016-11-08 21:50:41

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問