WPS 基础接口 > 演示 API 参考 > Shapes > 方法 > 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

Add Polyline 方法 addpolyline 方法 创建一个打开或关闭的折线图形? 添加折线


请参阅