Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie la collection Styles d’un document. En lecture seule.
Syntaxe
expression. Styles
expression Variable qui représente un objet Document .
Valeur renvoyée
Styles
Exemple
La macro suivante indique comment utiliser la propriété Styles pour ajouter des objets Style à la collection Styles. Elle explique comment ajouter un nouveau style ou un style basé sur un style existant.
Public Sub Styles_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 style Basic Shadow and includes
'only a Fill style.
Set vsoStyles = vsoDocument.Styles
Set vsoStyle = vsoStyles.Add("My FillStyle", "Basic Shadow", 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.