みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

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

解決済みの質問

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

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

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


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

投稿日時 - 2010-01-12 09:40:55

QNo.5586943

すぐに回答ほしいです

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

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

投稿日時 - 2010-01-12 11:36:03

お礼

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

投稿日時 - 2010-01-21 02:06:21

ANo.1

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

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

回答(1)

あなたにオススメの質問