Shapes.AddLine メソッド (Project)

レポートに行が追加され、行を表す Shape オブジェクトを返します。

構文

式。 AddLine(BeginX、BeginY、EndX、EndY)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前	必須 / オプション	データ型	説明
BeginX	必須	Single	レポートの左端を基準に始点の水平位置をポイント単位で指定します。
BeginY	必須	Single	レポートの上端を基準に始点の垂直位置をポイント単位で指定します。
EndX	必須	Single	レポートの左端を基準に終点の水平位置をポイント単位で指定します。
EndY	必須	Single	レポートの上端を基準に終点の垂直位置をポイント単位で指定します。
BeginX	必須	FLOAT
BeginY	必須	FLOAT
EndX	必須	FLOAT
EndY	必須	FLOAT
名前	必須 / オプション	データ型	説明

戻り値

図形

注釈

線の形式を設定するには、Shape.Line プロパティを使用します。

例

次の例では、末尾に矢印が付く紫の破線を作成します。

Sub AddBigArrow()
    Dim shapeReport As Report
    Dim reportName As String
    Dim lineShape As shape
    
    ' Add a report.
    reportName = "Line report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    Set lineShape = shapeReport.Shapes.AddLine(20, 50, 320, 100)
    
    With lineShape.Line
        .DashStyle = msoLineDashDot
        .Weight = 3
        .EndArrowheadStyle = msoArrowheadTriangle
        .EndArrowheadWidth = msoArrowheadWidthMedium
        .ForeColor.RGB = &HFF0090
    End With
End Sub

関連項目

Shapes オブジェクトShape オブジェクトLine プロパティ

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。