Sub Test() Dim d As Document Dim s As Shape Dim i As Long Dim y As Double Set d = CreateDocument() For i = 1 To OutlineStyles.Count y = i * 0.3 Set s = d.ActiveLayer.CreateLineSegment(0, y, 5, y) s.Outline.Width = 0.01 s.Outline.Style = OutlineStyles(i) Next iEnd Sub