Die Dateien (Documents)
Interessanter ist sicherlich die Auflistung der derzeit geöffneten Dateien. Sie lautet Documents.
Sub VisioDateien2() Dim i As Integer Dim strDateiNamen As String For i = 1 To Application.Documents.Count strDateiNamen = strDateiNamen & vbCr & _ Application.Documents(i).Name Next MsgBox strDateiNamen End Sub
Listing 16.6 Die Auflistung der geöffneten Dateien
Das oberste Objekt Application muss nicht jedes Mal neu geschrieben werden. Das Beispiel funktioniert auch folgendermaßen:
Sub VisioDateien3() Dim i As Integer Dim strDateiNamen As String For i = 1 To Documents.Count strDateiNamen = strDateiNamen & vbCr & Documents(i).Name Next MsgBox strDateiNamen End Sub
Listing 16.7 Variante 2 für die Auflistung der geöffneten Dateien ...
Get Microsoft Visio 2013 - Das Handbuch now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.