Styles.Add method (Visio)

Artikkeli
01/19/2022

Adds a new Style object to a Styles collection.

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.

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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Jaa