将指定任意多边形图形的顶点(及贝塞尔曲线的控制点)坐标作为一系列坐标对返回。可将本属性返回的数组用作 AddCurve 方法或 AddPolyline 方法的参数。只读。Variant 类型。
下表显示 Vertices 属性数组 vertArray()
中的值如何与三角形的 vertices 坐标相关联。
VertArray 元素 | 内容 |
---|---|
VertArray(1, 1) |
第一个顶点到幻灯片左边的水平距离 |
VertArray(1, 2) |
第一个顶点到幻灯片顶部的垂直距离 |
VertArray(2, 1) |
第二个顶点到幻灯片左边的水平距离 |
VertArray(2, 2) |
第二个顶点到幻灯片顶部的垂直距离 |
VertArray(3, 1) |
第三个顶点到幻灯片左边的水平距离 |
VertArray(3, 2) |
第三个顶点到幻灯片顶部的垂直距离 |
本示例将 myDocument
上第一个形状的顶点坐标分配给数组变量 vertArray()
,并显示第一个顶点的坐标。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1)
vertArray = .Vertices
x1 = vertArray(1, 1)
y1 = vertArray(1, 2)
MsgBox "First vertex coordinates: " & x1 & ", " & y1
End With
本示例创建一个曲线,该曲线的几何说明与 myDocumentument
中第一个形状相同。本示例要求第一个形状必须包含 3n+1 个顶点。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
.AddCurve .Item(1).Vertices
End With