共用方式為

PowerPoint) (ShapeRange.Vertices 屬性

  • 發行項

會以一系列座標組的方式傳回指定手繪多邊形的頂點 (以及貝茲曲線的控制點) 座標。 唯讀。

語法

運算式。頂點

表達 代表 ShapeRange 物件的 變數。

傳回值

Variant

註解

使用這個屬性所傳回的陣列做為 AddCurve 方法或 AddPolyline 方法的 引數。

下表顯示如何 Vertices 屬性產生關聯陣列 vertArray()中的值與三角形頂點的座標。

VertArray 元素 包含
VertArray(1, 1) 第一個頂點與投影片左側的水平距離
VertArray(1, 2) 第一個頂點與投影片頂端的垂直距離
VertArray(2, 1) 第二個頂點與投影片左側的水平距離
VertArray(2, 2) 第二個頂點與投影片頂端的垂直距離
VertArray(3, 1) 第三個頂點與投影片左側的水平距離
VertArray(3, 2) 第三個頂點與投影片頂端的垂直距離

範例

本範例會將 myDocument 上第一個圖案的頂點座標指派給陣列變數 vertArray() ，並顯示第一個頂點的座標。

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(1)

    vertArray = .Vertices

    x1 = vertArray(1, 1)

    y1 = vertArray(1, 2)

    MsgBox "First vertex coordinates: " & x1 & ", " & y1

End With

本範例建立與 myDocument 中的第一個圖案有著相同的幾何描述的曲線。 第一個圖案必須包含 3 個 n +1 個頂點，此範例才能成功。

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes

    .AddCurve .Item(1).Vertices

End With

另請參閱

ShapeRange 物件

支援和意見反應

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