• ベストアンサー
  • すぐに回答を!

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

  • 質問No.5586943
  • 閲覧数693
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0
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列したいのですが、そのためにはどうすれば良いでしょうか。ご教授ください。

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

  • 回答No.1
  • ベストアンサー

ベストアンサー率 79% (496/625)

>.ChartType = xlLineStacked
ここで『積み上げ折れ線』グラフを指定されてますから、xlLineに変更すれば良いです。
お礼コメント
noname#103383
私は、.ChartType = XYScatter としたかったのでした。ご指摘が解決の方向性を与えてくださいました。明解なご回答ありがとうございました。
投稿日時:2010/01/21 02:06
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ