ShapeRange.Vertices 属性 (Excel)
将指定任意多边形形状的顶点(及贝塞尔曲线的控制点)坐标作为一系列坐标对返回。 使用此属性返回的数组作为 AddCurve 方法或 AddPolyLine 方法的参数。 只读变体。
语法
表达式。顶点
表达 一个代表 ShapeRange 对象的变量。
备注
下表显示 顶点 属性如何将 vertArray()
数组中的值相关联的三角形的顶点的坐标。
vertArray 元素 | Contains |
---|---|
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 中第一个形状相同。 第一个形状必须包含 3 n+1 个顶点才能使此示例成功。
Set myDocument = Worksheets(1)
With myDocument.Shapes
.AddCurve .Item(1).Vertices
End With
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。