Méthode Documents.Add (Visio)

Ajoute un nouvel objet Document à la collection Documents

Syntaxe

expression. Add (FileName)

Expression Variable qui représente un objet Documents .

Parameters

Nom	Requis/Facultatif	Type de données	Description
FileName	Obligatoire	String	Type ou nom de fichier du document à ajouter ; Si vous n’incluez pas de chemin d’accès, Visio recherche le ou les dossiers désignés dans la propriété TemplatePaths de l’objet Application et tous les modèles publiés, y compris les modèles tiers publiés.

Valeur renvoyée

Document

Remarques

Pour créer un dessin qui ne soit basé sur aucun modèle, transmettez une chaîne de longueur nulle ("") à la méthode Add.

Pour créer un dessin basé sur un autre fichier, comme un modèle, transmettez le nom de fichier du fichier d’origine à la méthode Add . Visio ouvre les gabarits faisant partie de l'espace de travail du modèle et copie les styles et les autres paramètres associés au modèle dans le nouveau document. Si le nom de fichier du modèle n'est pas valide, aucun document n'est renvoyé et une erreur est générée.

Pour créer un nouveau gabarit basé sur aucun modèle, transmettez (« vss »).

Remarque

Le passage d’un nom de fichier en tant qu’argument à la méthode Add revient à ouvrir un fichier comme un modèle, où un nouveau dessin vide qui inclut le contenu copié à partir de l’original est créé.

Exemple

La macro suivante indique comment ajouter des objets Document comme des modèles, gabarits et dessins à la collection Documents.

Avant d'exécuter cette macro, remplacez Myfile.vsd par un fichier .vsd valide.

Public Sub AddDocument_Example() 
 
 Dim vsoDocument As Visio.Document 
 
 'Add a Document object based on the Basic Diagram template. 
 Set vsoDocument = Documents.Add("Basic Diagram.vst") 
 
 'Add a Document object based on a drawing (creates a copy of the drawing). 
 Set vsoDocument = Documents.Add("Myfile.vsd ") 
 
 'Add a Document object based on a stencil (creates a copy of the stencil). 
 Set vsoDocument = Documents.Add("Basic Shapes.vss") 
 
 'Add a Document object based on no template. 
 Set vsoDocument = Documents.Add("") 
 
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.