Share via

Styles.Add Method

  • Article
Visio Automation Reference

Adds a new Style object to a Styles collection.

Version Information
 Version Added:  Visio 2.0

Syntax

expression.Add(StyleName, BasedOn, fIncludesText, fIncludesLine, fIncludesFill)

expression   A variable that represents a Styles object.

Parameters

Name Required/Optional Data Type Description
StyleName Required String The new style name.
BasedOn Required String The name of the style on which to base the new style.
fIncludesText Required Integer Zero to disable text attributes, or non-zero to enable them.
fIncludesLine Required Integer Zero to disable line attributes, or non-zero to enable them.
fIncludesFill Required Integer Zero to disable fill attributes, or non-zero to enable them.

Return Value
Style

Remarks

To base the new style on no style, pass a zero-length string ("") for the BasedOn argument.

Example

The following macro shows how to add Style objects to the Styles collection. It shows how to add a new style based on an existing style, as well as how to add a new style created from scratch.

Visual Basic for Applications 
  Public Sub AddStyle_Example() 

Dim vsoDocument As Visio.Document 
Dim vsoStyles As Visio.Styles 
Dim vsoStyle As Visio.Style

'Add a document based on the Basic Diagram template.
Set vsoDocument = Documents.Add("Basic Diagram.vst")

'Add a style named "My FillStyle" to the Styles collection.
'This style is based on the Basic style and includes
'only a Fill style. 
Set vsoStyles = vsoDocument.Styles 
Set vsoStyle = vsoStyles.Add("My FillStyle", "Basic", 0, 0, 1) 

'Add a style named "My NoStyle" to the Styles collection.
'This style is not based on an existing style and includes
'Text, Line, and Fill styles. 
Set vsoStyle = vsoStyles.Add("My NoStyle", "", 1, 1, 1) 



End Sub

See Also