Styles.Add, méthode (Visio)

Article
04/07/2023

Ajoute un nouvel objet Style à une collection Styles .

Syntaxe

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

Expression Variable qui représente un objet Styles .

Parameters

Nom	Requis/Facultatif	Type de données	Description
StyleName	Obligatoire	String	Nom du nouveau style.
BasedOn	Requis	String	Nom du style sur lequel baser le nouveau style.
fIncludesText	Requis	Integer	Zéro pour désactiver les attributs de texte, ou non zéro pour les activer.
fIncludesLine	Requis	Integer	Zéro pour désactiver les attributs de ligne, ou non zéro pour les activer.
fIncludesFill	Requis	Integer	Zéro pour désactiver les attributs de remplissage, ou non zéro pour les activer.

Valeur renvoyée

Style

Remarques

Pour baser le nouveau style sur aucun style, passez une chaîne de longueur nulle (« ») pour l’argument BasedOn .

Exemple

La macro suivante montre comment ajouter des objets Style à la collection Styles . Il montre comment ajouter un nouveau style basé sur un style existant, ainsi que comment ajouter un nouveau style créé à partir de zéro.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via