VB6.0
Windows7

VB6のmschartで、折れ線グラフを作成しているのですが、
Y軸の下限がマイナス値、上限がプラス値の場合に
X軸のスケールを表示すると、
Y軸が0の位置(グラフの中)に表示されてしまいます。

Y軸の値に関係なく、X軸のスケールをグラフの一番下に
表示させる方法はないでしょうか？


Private Sub Form_Load()
    Dim MyData(1 To 10, 1 To 2) As Single
    Dim i As Integer
    Dim series As Object

    'X軸
    MyData(1, 1) = 0
    MyData(2, 1) = 10
    MyData(3, 1) = 20
    MyData(4, 1) = 30
    MyData(5, 1) = 40
    MyData(6, 1) = 50
    MyData(7, 1) = 60
    MyData(8, 1) = 70
    MyData(9, 1) = 80
    MyData(10, 1) = 90

    'Y軸
    MyData(1, 2) = 20
    MyData(2, 2) = -30
    MyData(3, 2) = 50
    MyData(4, 2) = -60
    MyData(5, 2) = 70
    MyData(6, 2) = -10
    MyData(7, 2) = 0
    MyData(8, 2) = 30
    MyData(9, 2) = -30
    MyData(10, 2) = 70
    
    With MSChart1
        .ChartData = MyData()
        .Plot.UniformAxis = False
        .chartType = VtChChartType2dXY
    End With

    MSChart1.Plot.SeriesCollection(1).ShowLine = True
    MSChart1.Plot.SeriesCollection(1).SeriesMarker.Show = False
    MSChart1.Plot.Axis(1).ValueScale.Auto = False
    MSChart1.Plot.Axis(1).ValueScale.Maximum = 100
    MSChart1.Plot.Axis(1).ValueScale.Minimum = -100

End Sub

これでどうでしょう。

With MSChart1.Plot.Axis(VtChAxisIdX).Intersection
    .Auto = False
    .LabelsInsidePlot = False
End With

> これでどうでしょう。
>
> With MSChart1.Plot.Axis(VtChAxisIdX).Intersection
>     .Auto = False
>     .LabelsInsidePlot = False
> End With

やりたかったことが実現できました。
すごく助かりました。ありがとうございました。