Project) (Shapes.AddLine 方法

將線條新增到報表，並傳回代表該線條的 Shape 物件。

語法

expression。 AddLine (BeginX，BeginY，EndX，EndY)

expression 代表 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

另請參閱

圖形物件圖形物件線屬性

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。

  • 上次更新時間：