Shape.Vertices 属性

以一系列坐标对的形式返回指定任意多边形顶点（和贝赛尔曲线的控点）的坐标。可以将此属性返回的数组用作 AddCurve 方法或 AddPolyline 方法的参数。只读。Variant 类型。

语法

表达式.Vertices

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

返回值
Variant

说明

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

VertArray 元素	内容
`VertArray(1, 1)`	第一个顶点到幻灯片左边的水平距离
`VertArray(1, 2)`	第一个顶点到幻灯片顶部的垂直距离
`VertArray(2, 1)`	第二个顶点到幻灯片左边的水平距离
`VertArray(2, 2)`	第二个顶点到幻灯片顶部的垂直距离
`VertArray(3, 1)`	第三个顶点到幻灯片左边的水平距离
`VertArray(3, 2)`	第三个顶点到幻灯片顶部的垂直距离

示例

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

示例代码

示例代码
`let myDocument = ActivePresentation.Slides.Item(1) let myshapes = myDocument.Shapes.Item(1) let vertArray = myshapes.Vertices x1 = vertArray(1, 1) y1 = vertArray(1, 2) MsgBox ("First vertex coordinates: " + x1 + ", " + y1)`

let myDocument = ActivePresentation.Slides.Item(1)
let myshapes = myDocument.Shapes.Item(1)
let vertArray = myshapes.Vertices
x1 = vertArray(1, 1)
y1 = vertArray(1, 2)
MsgBox ("First vertex coordinates: " + x1 + ", " + y1)

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

示例代码
`let myDocument = ActivePresentation.Slides.Item(1) let myshapes = myDocument.Shapes myshapes.AddCurve (myshapes.Item(1).Vertices)`

请参阅