Style Property

constant that represents the style of line to apply to a shape or border. Read/write.

expression.Style

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds a new shape and sets the line properties for the shape.

Sub SetLineStyle()
    With ActiveDocument.Pages(1).Shapes.AddShape(msoShapeRectangle, _
            Left:=72, Top:=140, Width:=200, Height:=100)
        .Rotation = 120
        With .Line
            .Weight = 5
            .DashStyle = msoLineDashDotDot
            .Style = msoLineThickBetweenThin
        End With
    End With
End Sub