OutlineStyles.AddStyle

Function AddStyle(Style As OutlineStyle) As OutlineStyle

The AddStyle method adds a new outline style to the collection. The new style is based on an existing style.

This method returns an OutlineStyle object.

You can call the Save method after you modify the list of outline styles so that the changes are available the next time you start CorelDRAW.


Parameters	Description
Style	Specifies the style from which the dash and gap pattern is copied

The following code example creates a custom outline style based on the second outline in the collection. The changes are then saved.

Sub Test() 
 Dim stl As OutlineStyle 
 Set stl = OutlineStyles.AddStyle(OutlineStyles(2)) 
 stl.DashLength(1) = 3 
 OutlineStyles.Save 
End Sub