ShapeRange.Vertices 屬性 (Excel)

以一組座標組的型態傳回指定之自由圖形繪圖頂點 (以及貝茲曲線的控制點) 的座標。 使用這個屬性所傳回的陣列做為 AddCurve 方法或 AddPolyLine 方法的引數。 唯讀的 Variant。

語法

運算式。頂點

表達 代表 ShapeRange 物件的 變數。

註解

下表顯示如何 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 = Worksheets(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 = Worksheets(1) 
With myDocument.Shapes 
 .AddCurve .Item(1).Vertices 
End With

支援和意見反應

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