AddLine 方法

       

当本方法应用于 Shapes 对象时,返回一个 Shape 对象,该对象代表工作表中的新线条。当本方法应用于 CanvasShapes 对象时,返回一个 Shape 对象,该对象代表绘图画布中的新线条。

expression.AddLine(BeginX, Beginy, EndX, EndY)

expression   必选。该表达式返回 Shapes 对象。

BeginX, BeginY   Single 类型,必需。相对于文档的左上角,以磅为单位给出线条的起点位置。

EndX, EndY   Single 类型,必需。相对于文档的左上角,以磅为单位给出线条的终点位置。

示例

本示例向 myDocument 中添加蓝色的虚线。

Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
End With