WPS 基础接口 > 演示 API 参考 > Shape > 属性 > 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)

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

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


请参阅