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.