會以一系列座標組的方式傳回指定手繪多邊形的頂點 (以及貝茲曲線的控制點) 座標。 唯讀。
語法
表情。頂點
詞 一個代表 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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。