Word) (Shape.Vertices 属性

将指定任意多边形形状的顶点（及贝塞尔曲线的控制点）坐标作为一系列坐标对返回。 只读变体。

语法

表达式。顶点

expression 是必需的。 一个代表 Shape 对象的变量。

备注

使用此属性返回的数组作为 AddCurve 或 AddPolyLine 方法的参数。

下表显示了 Vertices 属性如何将数组 vertArray () 中的值与三角形顶点的坐标相关联。

vertArray 元素	Contains
vertArray(1, 1)	第一个顶点至文档的左边界的水平距离。
vertArray(1, 2)	第一个顶点至文档顶端的垂直距离。
vertArray (2， 1)	第二个顶点至文档的左边界的水平距离。
vertArray(2, 2)	第二个顶点至文档顶端的垂直距离。
vertArray(3, 1)	第三个顶点至文档的左边界的水平距离。
vertArray(3, 2)	第三个顶点至文档顶端的垂直距离。

示例

以下示例将活动文档中第一个形状的顶点坐标赋给一个数组变量，并显示第一个顶点的坐标。 第一个形状必须是任意多边形图形。

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

以下示例创建一条与活动文档中第一个形状具有相同几何特征的曲线。 该示例假定第一个形状为包含 3n+1 个顶点的贝赛尔曲线，其中 n 为曲线段数量。

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

另请参阅

形状对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。