Shapes.AddPolyline 方法

创建一个不封闭的连续线段或一个封闭的多边形。返回一个代表新的连续线段或多边形的 Shape 对象。

语法

表达式.AddPolyline(SafeArrayOfPoints)

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

参数

名称	必选/可选	数据类型	描述
SafeArrayOfPoints	必选	Variant	由指定多边形顶点的坐标对（坐标对：一对值，表示两维数组中存储的点的 x 和 y 坐标，该数组中包含许多点的坐标。）组成的数组。

返回值
Shape

说明

若要形成一个闭合的多边形，请为多边形的起点和终点指定相同的坐标。

示例

本示例向 myDocument 中添加三角形。由于起点和终点的坐标相同，因此，该三角形既是闭合的又是填充的。该三角形的内部颜色为默认形状的填充颜色。

示例代码

示例代码
`Dim triArray(1 To 4, 1 To 2) As Single triArray(1, 1) = 25 triArray(1, 2) = 100 triArray(2, 1) = 100 triArray(2, 2) = 150 triArray(3, 1) = 150 triArray(3, 2) = 50 triArray(4, 1) = 25 ' Last point has same coordinates as first triArray(4, 2) = 100 Set myDocument = ActivePresentation.Slides(1) myDocument.Shapes.AddPolyline SafeArrayOfPoints:=triArray`

Dim triArray(1 To 4, 1 To 2) As Single
triArray(1, 1) = 25
triArray(1, 2) = 100
triArray(2, 1) = 100
triArray(2, 2) = 150
triArray(3, 1) = 150
triArray(3, 2) = 50
triArray(4, 1) = 25     ' Last point has same coordinates as first
triArray(4, 2) = 100
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddPolyline SafeArrayOfPoints:=triArray

请参阅