Project) (Shapes.AddPolyline 方法

建立開放聚合線或封閉聚合線圖，並傳回表示新聚合線或聚合線的 Shape 物件。

語法

expression。 AddPolyline (SafeArrayOfPoints)

expression 代表 Shapes 物件的變數。

參數

傳回值

圖形

註解

若要建立封閉式多邊形，只要將聚合線繪圖的第一個頂點和最後一個頂點指定為同一座標即可。 對於封閉多邊形，預設形狀填滿色彩為中藍色： &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 支援與意見反應。