Microsoft Visio 2013 - Das Handbuch

Unterordner visualisieren

Mit diesem Wissen und einigen Kenntnissen über Zugriffe auf das Dateisystem können Sie problemlos einen Assistenten programmieren, der Ihnen sämtliche Unterordner in einer neuen Visio-Zeichnung darstellt. Dazu benötigen Sie einige globale Variablen für die Zeilen- und Spaltennummern, die Visio-Datei, das zuletzt erstellte Shape und den Namen des Ordners.

Dim dblEbene As Double
Dim dblZeile As Double
Dim blnNeueZeile As Boolean
Dim vsDatei As Document
Dim vsSeite As Page
Dim strVerzeichnis As String
Dim vsRechteck As Shape

Listing 16.47 Die globalen Variablen

Der Ordner wird ausgewählt, eine neue Datei erstellt und auf die erste Seite zugegriffen. Das rekursive Programm (Listing 16.48) wird aufgerufen.

Sub ListeVerzeichnisAuf() ...