MSChartで2つの折れ線グラフを表示したい (ID:103143)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ソースを間違えましたので、再度質問を書き直しました。 よろしくお願い致します。 ------------------------------------------------------- VB6.0SP6で作成しています。 下記処理にて、折れ線グラフを表示させようとしましたが、1つ目しか表示できません。 つまり、 第2Y軸で表示されているグラフは直線のままです。 Y軸で表示されるグラフは赤色に設定しているのですが、黄緑にて表示されます。 どこが間違っているのかわからないので教えてください。 よろしくお願い致します。 --------------------------------- ◆プロパティページ チャート-種類-2D、複合 軸-Y軸-スケールの表示 軸-第2Y軸-スケールの表示 系列-C1-折れ線 系列-C2-折れ線、第2Y軸で表現 系列の色-C1-線の色(赤) 系列の色-C2-線の色(青) ◆ソース Dim Data() For i = 0 To 100 Data(i, 0) = i Data(i, 1) = i*0.01 Next i With MSChart1 .chartType = VtChChartType2dLine .ColumnCount = 1 .RowCount = 100 ' 表示 .Visible = True '目盛り線の設定（点数の横線) With MSChart1.Plot.Axis(VtChAxisIdY).ValueScale .Auto = False .Maximum = 0.4 '最大値 .Minimum = 0 '最小値 .MajorDivision = 4 '目盛り線の数（等分） .MinorDivision = 0 End With With MSChart1.Plot.Axis(VtChAxisIdY2).ValueScale .Auto = False .Maximum = 100 '最大値 .Minimum = 0 '最小値 .MajorDivision = 4 '目盛り線の数（等分） .MinorDivision = 0 End With ' グラフ表示 .ChartData = Data() End With