OutlineStyles.Count

Property Count As Long

The Count property returns the number of outline styles available.

The Count property returns a read-only value.

The following VBA example creates lines and applies a different outline style to each of them.

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 i

End Sub