Exemple de macro VBA (Visio)

Pour chaque fichier de dessin ouvert dans l’instance Visio, l’exemple Visual Basic pour Applications (VBA) suivant effectue les opérations suivantes :

• Enregistrement du nom et du chemin d’accès du fichier de dessin dans la fenêtre Exécution.

• Enregistrement du nom de chaque page dans la fenêtre Exécution.

Public Sub ShowNames()  
 
    'Declare object variables as Visio object types.  
    Dim vsoPage As Visio.Page  
    Dim vsoDocument As Visio.Document  
    Dim vsoDocuments As Visio.Documents  
    Dim vsoPages As Visio.Pages  
 
    'Iterate through all open documents.  
    Set vsoDocuments  = Application.Documents  
    For Each vsoDocument In vsoDocuments   
 
        'Print the drawing name in the Visual Basic Editor  
        'Immediate window.  
        Debug.Print vsoDocument.FullName  
 
        'Iterate through all pages in a drawing.  
        Set vsoPages = vsoDocument.Pages  
        For Each vsoPage In vsoPages 
  
            'Print the page name in the Visual Basic Editor  
            'Immediate window.  
            Debug.Print Tab(5); vsoPage.Name 
  
        Next  
 
    Next  
 
End Sub

Voici un exemple de résultat de programme impliquant que les dessins intitulés Office.vsd et Recycle.vsd soient ouverts et aient été enregistrés aux emplacements spécifiés. Les emplacements affichés ne sont pas ceux dans lesquels Visio enregistre les dessins par défaut.|

Exemple de résultat	Description
C:\documents\drawings\Office.vsd	Nom du premier dessin
Background-1	Nom de la page 1
Background-2	Nom de la page 2
C:\documents\drawings\Recycle.vsd	Nom du second dessin
Page-1	Nom de la page 1
Page-2	Nom de la page 2
Page-3	Nom de la page 3

Vous pouvez obtenir plus d’informations sur l’écriture d’un programme dans l’environnement VBA et sur Visual Basic Editor dans l’aide de Microsoft Visual Basic (dans la fenêtre Visual Basic Editor, dans le menu Aide, choisissez Aide de Microsoft Visual Basic).

Vous trouverez plus de détails sur l’utilisation spécifique d’un objet Visio, d’une propriété, d’une méthode, d’une énumération ou d’un événement dans cette référence.

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.