当本方法应用于 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