通过

Shapes.AddPolyline 方法 (Publisher)

  • 项目

将表示打开的折线或闭合多边形的新 Shape 对象添加到指定的 Shapes 集合。

语法

表达式。AddPolyline (SafeArrayOfPoints)

expression：一个表示 Shapes 对象的变量。

参数

名称 必需/可选 数据类型 说明
SafeArrayOfPoints 必需 Variant 用于指定折线顶点或多边形顶点的坐标对数组。

返回值

Shape

说明

对于 SafeArrayOfPoints 中的数组元素，数值以 磅为单位计算;字符串可以位于 Microsoft Publisher (支持的任何单元中，例如，“2.5 in”) 。

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

示例

以下示例将一个三角形添加到当前出版物的第一页。 因为第一个和最后一个点的坐标相同，所以多边形是闭合的。

Dim shpPolyline As Shape 
Dim arrPoints(1 To 4, 1 To 2) As Single 
 
arrPoints(1, 1) = 25 
arrPoints(1, 2) = 100 
arrPoints(2, 1) = 100 
arrPoints(2, 2) = 150 
arrPoints(3, 1) = 150 
arrPoints(3, 2) = 50 
arrPoints(4, 1) = 25 
arrPoints(4, 2) = 100 
 
Set shpPolyline = ActiveDocument.Pages(1).Shapes.AddPolyline _ 
 (SafeArrayOfPoints:=arrPoints)

支持和反馈

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