Shapes.AddLine 方法 (Publisher)
将表示线条的新 Shape 对象添加到指定的 Shapes 集合。
语法
表达式。AddLine (BeginX、 BeginY、 EndX、 EndY)
expression：一个表示 Shapes 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| BeginX | 必需 | Variant | 线条的起点的 x 轴坐标值。 |
| BeginY | 必需 | Variant | 线条的起点的 y 轴坐标值。 |
| EndX | 必需 | Variant | 线条的终点的 x 轴坐标值。 |
| EndY | 必需 | Variant | 线条的终点的 y 轴坐标值。 |
返回值
Shape
说明
对于 BeginX、 BeginY、 EndX 和 EndY 参数，数值以 磅为单位计算：字符串可以位于 Microsoft Publisher (支持的任何单元中，例如，“2.5 in”) 。
示例
以下示例将新线条添加到当前出版物的第一页。
Dim shpLine As Shape
Set shpLine = ActiveDocument.Pages(1).Shapes.AddLine _
(BeginX:=144, BeginY:=144, _
EndX:=180, EndY:=72)
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。