Layers.Add, méthode (Visio)
Ajoute un nouvel objet Layer à la collection Layers.
Syntaxe
expression. Ajouter (LayerName)
Expression Variable qui représente un objet Layers .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
LayerName | Requis | String | Nom du nouveau calque. |
Valeur renvoyée
Couche
Exemple
La macro suivante indique comment ajouter un objet Layer à la collection Layers.
Public Sub AddLayer_Example()
Dim vsoDocument As Visio.Document
Dim vsoPages As Visio.Pages
Dim vsoPage As Visio.Page
Dim vsoLayers As Visio.Layers
Dim vsoLayer As Visio.Layer
'Add a document based on the Basic Diagram template.
Set vsoDocument = Documents.Add("Basic Diagram.vst")
'Get the Pages collection and add a page to the collection.
Set vsoPages = vsoDocument.Pages
Set vsoPage = vsoPages.Add
'Get the Layers collection and add a layer named "MyLayer"
'to the collection.
Set vsoLayers = vsoPage.Layers
Set vsoLayer = vsoLayers.Add("MyLayer")
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.