Shape.Vertices 屬性 (Publisher)

以一組座標組的型態傳回指定之自由圖形繪圖頂點 (以及貝茲曲線的控制點) 的座標。 唯讀的 Variant。

語法

運算式。頂點

表達 代表 Shape 物件的變數。

註解

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

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

vertArray 元件	包含
vertArray(1, 1)	第一個頂點至頁面左側的水平距離。
vertArray(1, 2)	第一個頂點至頁面頂端的垂直距離。
vertArray(2, 1)	第二個頂點至頁面左側的水平距離。
vertArray(2, 2)	第二個頂點至頁面頂端的垂直距離。
vertArray(3, 1)	第三個頂點至頁面左側的水平距離。
vertArray(3, 2)	第三個頂點至頁面頂端的垂直距離。

範例

本範例會將使用中出版物第一個圖案的頂點座標指派給陣列變數 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 支援與意見反應。