通过

Shape.Vertices 属性 (PowerPoint)

  • 项目

以一系列坐标对的形式返回指定的任意多边形图形顶点（和贝赛尔曲线的控点）的坐标。 此为只读属性。

语法

表达式。顶点

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

返回值

Variant

备注

使用此属性返回的数组作为 AddCurve 方法或 AddPolyline 方法的参数。

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

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

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

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes

    .AddCurve .Item(1).Vertices

End With

另请参阅

形状对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。