以一组坐标对的形式返回指定任意多边形绘图对象的顶点(以及贝塞尔曲线的控制点)的坐标。可用本属性所返回的数组作为 AddCurve 方法或 AddPolyLine 方法的参数。Variant 类型,只读。
下表显示 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
中的第一张图形有着相同的几何说明的曲线。为使本示例正常运行,第一张图形必须包含 3n+1 个顶点。
Set myDocument = Worksheets(1)
With myDocument.Shapes
.AddCurve .Item(1).Vertices
End With