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

名前

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

本文

VB6.0SP6で作成しています。
下記処理にて、折れ線グラフを表示させようとしましたが、1つ目しか表示できません。
つまり、
第2Y軸で表示されているグラフは直線のままです。
Y軸で表示されるグラフは赤色に設定しているのですが、黄緑にて表示されます。

どこが間違っているのかわからないので教えてください。
よろしくお願い致します。

---------------------------------
◆プロパティページ
チャート-種類-2D、複合
軸-Y軸-スケールの表示
軸-第2Y軸-スケールの表示
系列-C1-折れ線
系列-C2-折れ線、第2Y軸で表現
系列の色-C1-線の色(赤)
系列の色-C2-線の色(青)

◆ソース
    Dim Data()

For i = 0 To 100
        AveData(i, 0) = i
        AveData(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 = Max(m_data())      '最大値
            .Minimum = Min(m_data())        '最小値
            .MajorDivision = 4  '目盛り線の数（等分）
            .MinorDivision = 0
        End With

'        グラフ表示
        .ChartData = Data()
        
    End With

←解決時は質問者本人がここをチェックしてください。

戻る