OutlineStyles.Remove

Sub Remove(Index As Long)

Member of OutlineStyles

The Remove method removes an outline style from the OutlineStyles collection.

The following code example creates an outline style, applies it to a line segment, and then removes the style from the collection:

Sub Test() 
 Dim s As Shape 
 Dim stl As OutlineStyle 
 Set stl = OutlineStyles.Add() 
 stl.DashCount = 1 
 stl.DashLength(1) = 20 
 stl.GapLength(1) = 1 
 OutlineStyles.Save 
 Set s = ActiveLayer.CreateLineSegment(0,0,5,5) 
 s.Outline.Width = 0.1 
 s.Outline.Style = stl 
 OutlineStyles.Remove stl.Index 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.