Sub Test() ActiveShape.Outline.Style = OutlineStyles(2)End Sub
The following VBA example creates a sample of each available outline style by creating lines and applying a style to each one in turn.Sub Test() Dim d As Document Dim s As Shape Dim stl As OutlineStyle Dim y As Double Set d = CreateDocument() For Each stl In OutlineStyles y = stl.Index * 0.3 Set s = d.ActiveLayer.CreateLineSegment(0, y, 5, y) s.Outline.Width = 0.01 s.Outline.Style = stl Next stlEnd Sub