VB6折れ線グラフを表示したいのですが・・

解決

かな 2007-06-27 05:43:45 No: 99108

単位の違うデータ（Ａ，Ｂ）を一つの表に表示したいのです。
例えば、Ａが金額、Ｂが数量と言ったものです。
  下記では、Ｙ軸は同じ目盛り（尺度）で表示されてしまいます。
できましたら、修正をお願いできないでしょうか。
  初めてのグラフ作成です。お願いします。
Private Sub Form_Load()
  Dim xmx, ymx
  Dim x, y
'** グラフ配列作成
  xmx = 2
  ymx = 7
  ReDim c(ymx, xmx)
'** グラフ配列セット
  c(0, 0) = "3 月"
  c(1, 0) = "4 月"
  c(2, 0) = "5 月"
  c(3, 0) = "6 月"
  c(4, 0) = "7 月"
  c(5, 0) = "8 月"
  c(6, 0) = "9 月"
  c(7, 0) = "10月"
  'データＡ
  For y = 0 To ymx
   c(y, 1) = Int(Rnd(1) * 1000)
  Next
  'データＢ
  For y = 0 To ymx
   c(y, 2) = Int(Rnd(1) * 100)
  Next
'** 折れ線グラフ表示
  MSChart1.Visible = True
  MSChart1.chartType = 3
  MSChart1.ChartData = c
End Sub

あ。 2007-06-30 01:06:10 No: 99109

以前、ちょっと調べただけなので、細かいことは憶えてないけど…
MSChart1.Plot.SeriesCollection(i).SecondaryAxis = True
（i:何番目の系列のデータか）
とすると、指定した系列のデータが第2Y軸に割り当てられます。
第2Y軸自体の設定については、MSChart1.Plot.Axis(VtChAxisIdY2) 内の
各プロパティを調べてみてくだされ。

かな 2007-07-01 08:47:47 No: 99110

あ。様ありがとうございます。
>MSChart1.Plot.SeriesCollection(i).SecondaryAxis = True
で、割り当てできるのですね。
まだ、自信はないのですが、これを使ってやってみます。

かな 2007-07-22 20:13:55 No: 99111

解決しました。
あ。様ありがとうございました。