Propriété Document.AlternateNames (Visio)

Article
04/07/2023

Récupère ou définit les noms de substitution d’un document. Lecture-écriture.

Syntaxe

expression. AlternateNames

Expression Variable qui représente un objet Document .

Valeur renvoyée

Chaîne

Remarques

L’application stocke les noms de document dans les situations suivantes :

Les modèles stockent les noms de gabarit. Par exemple, le modèle Basic Flowchart stocke les noms des gabarits Basic Flowchart Shapes.vss et Backgrounds.vss. Ces gabarits sont ouverts avec le modèle Basic Flowchart.
Les raccourcis des formes de base stockent les noms de gabarit. Par exemple, un raccourci pour la forme De données stocke le nom du gabarit sur lequel la forme de données est stockée — Formes d’organigramme de base.vss.

Lorsque l’application ouvre un document ou accède à la collection d’un objet Document, elle utilise le nom du document. Si Microsoft Visio ne trouve pas ce nom, il recherche les noms de substitution des gabarits situés dans le chemin d’accès correct. (Pour ajouter un chemin d’accès, cliquez sur l’onglet Fichier , sur Options, sur Avancé, puis, sous Général, cliquez sur Emplacements des fichiers.) Par exemple, supposons que vous avez créé le gabarit nommé « Nouvelles formes 2008.vss ». L’année suivante, vous avez modifié le gabarit et l’avez renommé « Nouvelles formes 2009.vss ». Tous les modèles qui ont ouvert New Shapes 2008.vss doivent maintenant ouvrir New Shapes 2009.vss. Pour ce faire, définissez la propriété AlternateNames de New Shapes 2009.vss sur « New Shapes 2008.vss ». Le code Microsoft Visual Basic suivant montre une façon de procéder.

Visio.Documents("New Shapes 2009.vss").AlternateNames = "New Shapes 2008.vss"

La propriété AlternateNames est vide, à moins que vous ne la définissiez par Automation. Chaque nom de substitution de la chaîne doit contenir le nom de fichier, mais aucune information relative au dossier. Vous pouvez également inclure des commentaires entre crochets (<>), car l’application ignore tout ce qui se trouve entre crochets. Par exemple, vous pouvez utiliser le code suivant pour définir la propriété AlternateNames .

Visio.Documents("HRShapes.vss").AlternateNames = "Human Resources Shapes.vss; <old name> HRDept Shapes.vss"

Exemple

La macro suivante indique comment obtenir et définir la propriété AlternateNames du document actif. Elle démontre que la propriété est vide jusqu’à ce que vous la définissiez.

 
Public Sub AlternateNames_Example() 
  
    'Get the AlternateNames property of the document.  
    Debug.Print "Alternate name is: "; ThisDocument.AlternateNames 
 
    'Set the AlternateNames property of the document.  
    ThisDocument.AlternateNames = "Test Shapes.vss"  
    Debug.Print "Alternate name is: "; ThisDocument.AlternateNames  
 
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