Shape.Vertices 属性

该属性以一系列坐标对?（坐标对：一对值，表示两维数组中存储的点的 x 和 y 坐标，该数组中包含许多点的坐标。）的形式返回指定任意多边形图形顶点（和贝赛尔曲线的控点）的坐标。只读 Variant 类型。

语法

表达式.Vertices

表达式 必选。一个代表 Shape 对象的变量。

说明

可将该属性返回的数组用作 AddCurve 或 AddPolyLine 方法的参数。

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

vertArray 元素内容

示例代码
`vertArray(1, 1)`

第一个顶点至文档的左边界的水平距离。

示例代码
`vertArray(1, 2)`

第一个顶点至文档顶端的垂直距离。

示例代码
`vertArray(2, 1)`

第二个顶点至文档的左边界的水平距离。

示例代码
`vertArray(2, 2)`

第二个顶点至文档顶端的垂直距离。

示例代码
`vertArray(3, 1)`

第三个顶点至文档的左边界的水平距离。

示例代码
`vertArray(3, 2)`

第三个顶点至文档顶端的垂直距离。

示例

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

示例代码
`let ishape = ActiveDocument.Shapes.Item(1) vertArray = ishape.Vertices x1 = vertArray[1][1] y1 = vertArray[1][2] MsgBox("First vertex coordinates: "+ x1 + "," + y1)`

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

示例代码
`let shapes = ActiveDocument.Shapes shapes.AddCurve(shapes.Item(1).Vertices, Selection.Range)`

请参阅