本示例将图形1的边框设置为蓝色虚线。

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