In diesem Beispiel wird in myDocument eine blau gestrichelte Linie eingefügt.
Set myDocument = Worksheets(1) With myDocument.Shapes.AddLine(10, 10, 250, 250).Line .DashStyle = msoLineDashDotDot .ForeColor.RGB = RGB(50, 0, 128) End With