OutlineStyles.AddStyle

Function AddStyle(Style As OutlineStyle) As OutlineStyle

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

•

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.

This method returns an OutlineStyle object.


Parameter	Description
Style	Specifies the style from which to copy the dash/gap pattern

The following VBA 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