Set myDocument = ActiveDocumentWith myDocument.Shapes(1).Line .DashStyle = KsoLineDashDotDot .ForeColor.RGB = RGB(50, 0, 128)End With