C# と VB.NET の質問掲示板

■No80102 (toshi さん) に返信

以下のようにするとymaxにy座標の最大値が入ります。
Updateをするのがよいようです。

        Dim tbl As New DataTable()
        With tbl.Columns
            .Add("x", GetType(Integer))
            .Add("y", GetType(Integer))
        End With
        tbl.Rows.Add(1, 100)
        tbl.Rows.Add(2, 150)
        tbl.Rows.Add(3, 78)
        tbl.Rows.Add(4, 172)

        Chart1.DataSource = tbl
        Dim sr = Chart1.Series(0)
        sr.ChartType = DataVisualization.Charting.SeriesChartType.Line
        sr.XValueMember = "x"
        sr.YValueMembers = "y"

        Chart1.Update()
        With Chart1.ChartAreas(sr.ChartArea)
            Dim ymax = .AxisY.Maximum
        End With

■No80116 (toshi さん) に返信

勘違いをしてました。
最小値が０でないのとY軸の目盛線が一番上までひかれていないのと
目盛線の間隔が違っているのに気づきませんでした。

        Chart1.Update()
        With Chart1.ChartAreas(sr.ChartArea)
            Dim ymin = .AxisY.Minimum

            Dim ymax = .AxisY.Maximum
            Dim yint = .AxisY.MajorGrid.Interval
            ymax = ymin + Math.Floor((ymax - ymin) / yint) * yint
        End With

■No80117 (shu さん) に返信

もしかして
Dim yint = .AxisY.Interval
でしょうか？

有り難うございます。
取得できました。


> ■No80116 (toshi さん) に返信
> 
> 勘違いをしてました。
> 最小値が０でないのとY軸の目盛線が一番上までひかれていないのと
> 目盛線の間隔が違っているのに気づきませんでした。
> 
>         Chart1.Update()
>         With Chart1.ChartAreas(sr.ChartArea)
>             Dim ymin = .AxisY.Minimum
> 
>             Dim ymax = .AxisY.Maximum
>             Dim yint = .AxisY.MajorGrid.Interval
>             ymax = ymin + Math.Floor((ymax - ymin) / yint) * yint
>         End With
>