以一組座標組的型態傳回指定之自由圖形繪圖頂點 (以及貝茲曲線的控制點) 的座標。 唯讀的 Variant。
語法
運算式。頂點
expression 一個用於表示 Shape 物件的變數。
註解
使用此屬性所傳回的陣列，做為 AddCurve 或 AddPolyline 方法的引數。
下表顯示如何 Vertices 屬性產生關聯陣列 vertArray()中的值與三角形頂點的座標。
| vertArray 元件 | 包含 |
|---|---|
vertArray(1, 1) |
第一個頂點至頁面左側的水平距離。 |
vertArray(1, 2) |
第一個頂點至頁面頂端的垂直距離。 |
vertArray(2, 1) |
第二個頂點至頁面左側的水平距離。 |
vertArray(2, 2) |
第二個頂點至頁面頂端的垂直距離。 |
vertArray(3, 1) |
第三個頂點至頁面左側的水平距離。 |
vertArray(3, 2) |
第三個頂點至頁面頂端的垂直距離。 |
範例
此範例會將使用中出版物中圖形 1 的頂點座標指派給陣列變數 vertArray()，並顯示第一個頂點的座標。
Dim vertArray As Variant
Dim sngX1 As Single
Dim sngY1 As Single
With ActiveDocument.Pages(1).Shapes(1)
vertArray = .Vertices
sngX1 = vertArray(1, 1)
sngY1 = vertArray(1, 2)
MsgBox "First vertex coordinates: " & sngX1 & ", " & sngY1
End With
本範例建立一條曲線，使它與使用中出版物的圖案 1 具有相同的幾何說明。 為使此範例能正常執行，圖案 1 必須包含 3n+1 個頂點，其中 n 是大於或等於 1 的整數。
With ActiveDocument.Pages(1).Shapes
.AddCurve SafeArrayOfPoints:=.Item(1).Vertices
End With
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。