共用方式為

PowerPoint) (Shapes.AddPolyline 方法

  • 發行項

會建立開口聚合線或封閉的多邊形圖案。 會傳回代表新的多折線或多邊形的 Shape 物件。

語法

expression。 AddPolyline( _SafeArrayOfPoints_ )

expression 代表 Shapes 物件的變數。

參數

名稱 必要/選用 資料類型 描述
SafeArrayOfPoints 必要 Variant 可指定多聚合繪圖頂點的座標組陣列

傳回值

圖形

註解

若要建立封閉式多邊形，只要將聚合線繪圖的第一個頂點和最後一個頂點指定為同一座標即可。

範例

本範例在 myDocument 中新增三角形。 因為起點和終點的座標相同，所以繪製的是封閉且填滿的多邊形。 該三角形的內部色彩即圖案的預設填滿色彩。

Dim triArray(1 To 4, 1 To 2) As Single

triArray(1, 1) = 25

triArray(1, 2) = 100

triArray(2, 1) = 100

triArray(2, 2) = 150

triArray(3, 1) = 150

triArray(3, 2) = 50

triArray(4, 1) = 25     ' Last point has same coordinates as first

triArray(4, 2) = 100

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes.AddPolyline SafeArrayOfPoints:=triArray

另請參閱

Shapes 物件

支援和意見反應

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