Word) (Shape.Vertices 屬性

以一組座標組的型態傳回指定之自由圖形繪圖頂點 (以及貝茲曲線的控制點) 的座標。 唯讀的 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 的頂點座標指派給陣列變數，然後顯示第一個頂點的座標。 圖案 1 必須是自由圖形繪圖。

With ActiveDocument.Shapes(1) 
    vertArray = .Vertices 
    x1 = vertArray(1, 1) 
    y1 = vertArray(1, 2) 
    MsgBox "First vertex coordinates: " & x1 & ", " & y1 
End With

本範例會建立一條曲線，使它與使用中文件的圖案 1 具有相同的幾何描述。 本範例假設第一個圖案是包含 3n+1 個頂點的貝塞爾曲線，其中 n 是曲線片段的數目。

With ActiveDocument.Shapes 
    .AddCurve .Item(1).Vertices, Selection.Range 
End With

另請參閱

Shape 物件

支援和意見反應

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