ShapeRange.Vertices 属性

将指定任意多边形形状的顶点（及贝塞尔曲线的控制点）坐标作为一系列坐标对?（坐标对：一对值，表示两维数组中存储的点的 x 和 y 坐标，该数组中包含许多点的坐标。）返回。可将此属性返回的数组用作 AddCurve 方法或 AddPolyLine 方法的参数。Variant 型，只读。

语法

表达式.Vertices

表达式 一个代表 ShapeRange 对象的变量。

说明

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

vertArray 元素	内容
`vertArray(1, 1)`	第一个顶点与文档的左边界之间的水平距离
`vertArray(1, 2)`	第一个顶点与文档的顶端之间的垂直距离
`vertArray(2, 1)`	第二个顶点与文档的左边界之间的水平距离
`vertArray(2, 2)`	第二个顶点与文档的顶端之间的垂直距离
`vertArray(3, 1)`	第三个顶点与文档的左边界之间的水平距离
`vertArray(3, 2)`	第三个顶点与文档的顶端之间的垂直距离

示例

此示例将 myDocument 上第一个形状的顶点坐标分配给数组变量 vertArray()，并显示第一个顶点的坐标。

示例代码

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

let myDocument = Worksheets.Item(1)
let myShape = myDocument.Shapes.Item(1)
let vertArray = [myShape.Vertices]
x1 = vertArray[1, 1]
y1 = vertArray[1, 2]
MsgBox("First vertex coordinates: " + x1 + ", " + y1)

此示例创建一个曲线，该曲线的几何说明与 myDocument 中第一个形状相同。此示例要求第一个形状必须包含 3n+1 个顶点。

示例代码
`let myDocument = Worksheets.Item(1) let myShape = myDocument.Shapes myShape.AddCurve(myShape.Item(1).Vertices)`

请参阅