Shapes.AddPolyline 方法 (專案)

建立開放多邊形或封閉多邊形繪圖，並回傳一個代表新多邊形或多邊形的 Shape 物件。

語法

expression。 AddPolyline (安全點數陣列)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
安全分數陣列	必要	Variant	一個座標對陣列，用來指定多邊線的頂點。
安全分數陣列	必要	Variant
名稱	必要/選用	資料類型	描述

傳回值

圖形

註解

若要建立封閉式多邊形，只要將聚合線繪圖的第一個頂點和最後一個頂點指定為同一座標即可。 對於封閉多邊形，預設的形狀填充顏色是中藍色：&HD59B5B 或 RGB(Red:=91, Green:=155, Blue:=213)。

範例

由於第一點與最後兩點相同，以下範例會形成封閉八角形。 紫色線寬兩點;八角形內部填充金色。

Sub AddOctagon()
    Dim shapeReport As Report
    Dim reportName As String
    Dim polylineShape As shape
    
    ' Add a report.
    reportName = "Polyline report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    Dim octArray(1 To 9, 1 To 2) As Single
    octArray(1, 1) = 9
    octArray(1, 2) = 8
    octArray(2, 1) = 19
    octArray(2, 2) = 8
    octArray(3, 1) = 26
    octArray(3, 2) = 15
    octArray(4, 1) = 26
    octArray(4, 2) = 25
    octArray(5, 1) = 19
    octArray(5, 2) = 32
    octArray(6, 1) = 9
    octArray(6, 2) = 32
    octArray(7, 1) = 2
    octArray(7, 2) = 25
    octArray(8, 1) = 2
    octArray(8, 2) = 15
    octArray(9, 1) = 9
    octArray(9, 2) = 8
    
    Set polylineShape = shapeReport.Shapes.AddPolyline(octArray)
    
    With polylineShape.Line
        .Weight = 2
        .ForeColor.RGB = &HFF0090    ' Violet color.
    End With
    
    polylineShape.Fill.ForeColor.RGB = &H10D0D0    ' Gold color.
End Sub

另請參閱

形狀 物件形狀 物件線條屬性填充屬性

支援和意見反應

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