Shapes.AddPolyline 方法 (Project)

建立開啟的聚合線條或封閉多邊形繪圖，並傳回代表新多邊形或多邊形的 Shape 物件。

語法

expression。 AddPolyline (SafeArrayOfPoints)

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
SafeArrayOfPoints	必要	Variant	指定聚合線條頂點的座標組陣列。
SafeArrayOfPoints	必要	Variant
名稱	必要/選用	資料類型	描述

傳回值

圖形

註解

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

範例

因為第一個和最後一個點相同，所以下列範例會建立封閉八邊形。 Violet 線條寬度為兩點;八邊形會填滿金色色彩。

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

另請參閱

Shapes 物件Shape 物件Line 屬性Fill 屬性

支援和意見反應

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