[VBA Excel] ２系列の散布図を書いてみるとおかしくなります・・・

質問

Excel 2007とVBAで数値解析をしています。計算結果のグラフを表示するための準備段階として、次のようなプログラムを組んで、２系列の散布図を書いて見ました。

Option Explicit
Sub makechart()
　　Dim chart1 As ChartObject, wsh As Worksheet
　　Set wsh = Sheet1
　　Set chart1 = wsh.ChartObjects.Add( _
　　10, 20, 250, 200)
　　With chart1.Chart
　　　.ChartType = xlLineStacked
　　　.SeriesCollection.NewSeries
　　　.SeriesCollection(1).XValues = _
　　　　wsh.Range("A1:A5")
　　　.SeriesCollection(1).Values = _
　　　　wsh.Range("B1:B5")
　　End With
　　With chart1.Chart
　　　.SeriesCollection.NewSeries
　　　.SeriesCollection(2).XValues = _
　　　　wsh.Range("A1:A5")
　　　.SeriesCollection(2).Values = _
　　　　wsh.Range("C1:C5")
　　End With
End Sub

--sheet1--
　　A　B　C
-----------
1|　1　2　3
2|　2　3　4
3|　3　4　5
4|　4　5　6
5|　5　6　7

系列１のグラフはB列 対 A列という意図通りのものになったのですが、系列２のグラフは、Y軸の値が、C列の値にB列の値を足したもの
(1,2+3)、(2,3+4) ・・・
になってしまいました。系列２のグラフも純粋にC列 対 A列したいのですが、そのためにはどうすれば良いでしょうか。ご教授ください。

回答No.1

end-u · ベストアンサー

>.ChartType = xlLineStacked
ここで『積み上げ折れ線』グラフを指定されてますから、xlLineに変更すれば良いです。

お礼

私は、.ChartType = XYScatter としたかったのでした。ご指摘が解決の方向性を与えてくださいました。明解なご回答ありがとうございました。