Microsoft Visio 2013 - Das Handbuch

Zugriff auf Shapes

Da ein Shape sowohl auf dem Zeichenblatt als auch als Master-Shape in einer Schablone liegen kann, muss genau geklärt werden, auf welches Shape an welchem Ort zugegriffen wird.

Master-Shapes in einer Schablone

Wird auf eine Schablone zugegriffen, kann man auch auf dortige Master-Shapes zugreifen. Die Anweisung

Documents(i).Masters.GetNames

übergibt die Namen aller Master-Shapes an ein Array, wenn es sich bei Documents(i) um eine Schablone handelt. Das folgende Beispiel durchläuft alle Dateien, überprüft, ob es sich um Schablonen handelt, und zeigt deren Master-Shapenamen an:

Sub MastersAnzeigen() Dim intMaster As Integer Dim intDokumente As Integer Dim strMasternames() As String Dim strAusgabe As String For intDokumente = 1 To Documents.Count ...