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 code 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