Shapes.AddLine 方法 (PowerPoint)

创建一条直线。 返回一个 Shape 对象，该对象表示新行。

语法

expression。 AddLine( _BeginX_, _BeginY_, _EndX_, _EndY_ )

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

参数

名称	必需/可选	数据类型	说明
BeginX	必需	Single	线条起点相对于幻灯片左边缘的水平位置（以磅为单位）。
BeginY	必需	Single	线条起点相对于幻灯片上边缘的垂直位置（以磅为单位）。
EndX	必需	Single	线条终点相对于幻灯片左边缘的水平位置（以磅为单位）。
EndY	必需	Single	线条终点相对于幻灯片上边缘的垂直位置（以磅为单位）。

返回值

型号

示例

以下示例向 myDocument 中添加一条蓝色虚线。

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes.AddLine(BeginX:=10, BeginY:=10, _
        EndX:=250, EndY:=250).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
End With

另请参阅

Shapes 对象

支持和反馈

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