VBA-Beispielmakro (Visio)

Für jede Zeichnungsdatei, die in der Instanz von Visio geöffnet ist, führt das unten angegebene Visual Basic für Applikationen (VBA)-Beispielmakro folgende Aktionen aus:

• Protokolliert Name und Pfad der Zeichnungsdatei im Direktfenster.

• Protokolliert den Namen jeder Seite im Direktfenster.

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

Hier ist ein Beispiel für die Programmausgabe, wobei davon ausgegangen wird, dass die Zeichnungen mit Namen Office.vsd und Recycle.vsd geöffnet sind und in die angegebenen Speicherorten gespeichert wurden. Bei den angezeigten Speicherorten handelt es sich nicht um die Standardspeicherorte für Visio-Zeichnungen.|

Beispielausgabe	Beschreibung
C:\documents\drawings\Office.vsd	Der Name der ersten Zeichnung
Background-1	Der Name von Zeichenblatt 1
Background-2	Der Name von Zeichenblatt 2
C:\documents\drawings\Recycle.vsd	Der Name der zweiten Zeichnung
Page-1	Der Name von Zeichenblatt 1
Page-2	Der Name von Zeichenblatt 2
Page-3	Der Name von Zeichenblatt 3

Weitere Informationen zum Schreiben eines Programms in der VBA-Umgebung und zum Visual Basic-Editor finden Sie in der Hilfe zu Visual Basic (Klicken Sie im Visual Basic-Editor-Fenster im Menü Hilfe auf Hilfe zu Microsoft Visual Basic).

Details zum Verwenden eines bestimmten Objekts, einer Eigenschaft, einer Methode, einer Aufzählung oder eines Ereignisses in Visio finden Sie in dieser Referenz.

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.