OutlineStyle.Index

Property Index As Long

The Index property returns the index of the dash style in the OutlineStyles collection. If the outline style is not saved in the global style collection, this property returns -1.

The Index property returns a read-only value.

The following code example changes all dotted outlines to long-dashed outlines:

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Outline.Type = cdrOutline Then 
   If s.Outline.Style.Index = 1 Then 
    s.Outline.Style = OutlineStyles(7) 
   End If 
  End If 
 Next s 
End Sub