Shape.Vertices 属性 (Publisher)

  • 项目

将指定任意多边形形状的顶点（及贝塞尔曲线的控制点）坐标作为一系列坐标对返回。 只读变体。

语法

表达式。顶点

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

备注

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

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

vertArray 元素 Contains
vertArray(1, 1) 从第一个顶点到页面左边的水平距离。
vertArray(1, 2) 从第一个顶点到页面顶部的垂直距离。
vertArray(2, 1) 从第二个顶点到页面左边的水平距离。
vertArray(2, 2) 从第二个顶点到页面顶部的垂直距离。
vertArray(3, 1) 从第三个顶点到页面左边的水平距离。
vertArray(3, 2) 从第三个顶点到页面顶部的垂直距离。

示例

本示例将当前出版物中第一个形状的顶点坐标分配给数组变量 vertArray()，并显示第一个顶点的坐标。

Dim vertArray As Variant 
Dim sngX1 As Single 
Dim sngY1 As Single 
 
With ActiveDocument.Pages(1).Shapes(1) 
 vertArray = .Vertices 
 sngX1 = vertArray(1, 1) 
 sngY1 = vertArray(1, 2) 
 MsgBox "First vertex coordinates: " & sngX1 & ", " & sngY1 
End With

以下示例创建一条与当前出版物的第一个形状具有相同几何描述的曲线。 为了使以下示例生效，第一个形状必须包含 3n+1 个顶点，此处 n 是大于或等于 1 的整数。

With ActiveDocument.Pages(1).Shapes 
 .AddCurve SafeArrayOfPoints:=.Item(1).Vertices 
End With

支持和反馈

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