Shapes Property Example

This example adds a blue dashed line to worksheet one.

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