Visual Studio 2017 を使用することをお勧めします

DrawLine メソッド

       

指定されたグラフ上に線分を描画します。新しい線分のプロパティは、Line プロパティの現在の設定を基に決定されます。

expression.DrawLine(x0, y0, x1, y1)

expression   必ず指定します。ChChartDraw オブジェクトを表すオブジェクト式を指定します。

x0   必ず指定します。長整数型 (Long) の値を指定します。線分の始点の x 座標をピクセル単位で指定します。

y0   必ず指定します。長整数型 (Long) の値を指定します。線分の始点の y 座標をピクセル単位で指定します。

x1   必ず指定します。長整数型 (Long) の値を指定します。線分の終点の x 座標をピクセル単位で指定します。

y1   必ず指定します。長整数型 (Long) の値を指定します。線分の終点の y 座標をピクセル単位で指定します。

使用例

次の使用例は、BeforeRender イベントおよび AfterRender イベントを使用して、ユーザー定義の枠線を作成する方法を示しています。まず BeforeRender イベントを使用して、枠線の描画をキャンセルします。次に、AfterRender イベントを使用して、ユーザー定義の枠線を描画します。

Sub ChartSpace1_BeforeRender(chartObject, Cancel)

    ' 描画対象の次のオブジェクトが枠線で
    ' あるかどうかを確認します。
    If TypeName(chartObject) = "ChGridlines" Then

        ' 枠線の描画をキャンセルします。
        Cancel.Value = True

    End If

End Sub

Sub ChartSpace1_AfterRender(drawObject, chartObject)

    Dim chChart1
    Dim plPlotArea
    Dim lLeft
    Dim lRight
    Dim lHeight
    Dim lTop
    Dim lIncrement
    Dim chConstants
    Dim iCtr

    Set chConstants = ChartSpace1.Constants

    ' Chartspace1 内の最初のグラフをオブジェクト変数に設定します。
    Set chChart1 = ChartSpace1.Charts(0)

    ' グラフのプロット エリアをオブジェクト変数に設定します。
    Set plPlotArea = chChart1.PlotArea

    ' 描画対象のオブジェクトが枠線であるかどうかを確認します。
    If TypeName(chartObject) = "ChGridlines" Then

        ' 次の 4 行のコードは、描画される線分の長さを
        ' プロット エリアの広さに基づいて
        ' 決定します。
        lLeft = plPlotArea.Left
        lTop = plPlotArea.Top
        lRight = plPlotArea.Right
        lHeight = plPlotArea.Bottom - lTop

        ' 枠線の間隔を決定します。
        ' 間隔を調整するには、除数を変更します。
        lIncrement = lHeight / 10

        ' 次の 3 行のコードは、描画される線分の
        ' プロパティを設定します。
        drawObject.Line.DashStyle = chConstants.chLineRoundDot
        drawObject.Line.Color = "Green"
        drawObject.Line.Weight = chConstants.owcLineWeightMedium

        For iCtr = 1 To 9

            ' 線分を描画します。
            drawObject.DrawLine lLeft, lTop + iCtr * lIncrement, _
                                lRight, lTop + iCtr * lIncrement

        Next

    End If

End Sub
表示: