CanvasShapes.AddPolyline 方法 (Word)
會開啟或封閉的多邊形新增至繪圖畫布中。 會傳回代表多邊形的 Shape 物件。
語法
expression。 AddPolyline( _SafeArrayOfPoints_ )
需要 expression。 代表 CanvasShapes 物件的 變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| SafeArrayOfPoints | 必要 | Variant | 可指定多聚合繪圖頂點的座標組陣列 |
註解
若要建立封閉式多邊形，只要將聚合線繪圖的第一個頂點和最後一個頂點指定為同一座標即可。
範例
本範例會在新的繪圖畫布中建立 V 型的開放式聚合線。
Sub NewCanvasPolyline()
Dim docNew As Document
Dim shpCanvas As Shape
Dim sngArray(1 To 3, 1 To 2) As Single
'Creates a new document and adds a drawing canvas
Set docNew = Documents.Add
Set shpCanvas = docNew.Shapes.AddCanvas( _
Left:=100, Top:=75, Width:=200, Height:=300)
'Sets the coordinates of the array
sngArray(1, 1) = 100
sngArray(1, 2) = 75
sngArray(2, 1) = 150
sngArray(2, 2) = 100
sngArray(3, 1) = 100
sngArray(3, 2) = 125
'Adds a V-shaped open polyline to the drawing canvas
shpCanvas.CanvasItems.AddPolyline SafeArrayOfPoints:=sngArray
End Sub
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。