通过

Shapes.AddPolyline 方法 (Word)

  • 项目

在绘图画布上添加一个开放或封闭的多边形。 返回一个 Shape 对象，该对象表示多边形并将其添加到 CanvasShapes 集合。

语法

expression。 AddPolyline( _SafeArrayOfPoints_ )

expression 是必需的。 一个代表 Shapes 对象的变量。

参数

名称 必需/可选 数据类型 说明
SafeArrayOfPoints 必需 Variant 指定连续线段图形的顶点的坐标对数组。

备注

若要组成一个封闭的多边形，请为连续线段图形的第一个和最后一个顶点指定相同的坐标。

示例

本示例在新绘图画布上创建一个 V 形开放多边形。

Sub NewCanvasPolyline() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 Dim sngArray(1 To 3, 1 To 2) As Single 
 
 'Creates a new document and adds a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=100, Top:=75, Width:=200, Height:=300) 
 
 'Sets the coordinates of the array 
 sngArray(1, 1) = 100 
 sngArray(1, 2) = 75 
 sngArray(2, 1) = 150 
 sngArray(2, 2) = 100 
 sngArray(3, 1) = 100 
 sngArray(3, 2) = 125 
 
 'Adds a V-shaped open polyline to the drawing canvas 
 shpCanvas.CanvasItems.AddPolyline SafeArrayOfPoints:=sngArray 
End Sub

另请参阅

Shapes 集合对象

支持和反馈

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