该属性以一系列坐标对的形式返回指定任意多边形顶点(和贝赛尔曲线的控点)的坐标。可将该属性返回的数组作为 AddCurve 或 AddPolyLine 方法的参数使用。Variant 类型,只读。
expression.Vertices
expression 必需。该表达式返回“应用于”列表中的一个对象。
下表显示 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
本示例创建一个与活动文档中第一个图形具有相同几何特征的曲线。本示例假定第一个图形为包含 3n+1 个顶点的贝赛尔曲线,其中 n 为曲线段数量。
With ActiveDocument.Shapes
.AddCurve .Item(1).Vertices, Selection.Range
End With