O'Reilly logo

Microsoft Visio 2013 - Das Handbuch by René Martin

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

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 ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required