Die Aufgabe: An eine Visio-Zeichnung sind Daten gebunden. Von diesen Daten werden einige Datensätze verwendet und sollen in der Zeichnung gruppiert und summiert angezeigt werden. Ebenso sollen diese Informationen nach Excel exportiert werden.
Und so habe ich es gemacht: Schritt I: Die Shapes vorbereiten.
Damit die Shapes (hier: die Schränke, die Racks) „eingesammelt“ werden können, müssen sie gekennzeichnet werden. Da ihnen kein Master zugrunde liegt, werden sie auf Layer gelegt. So können sie später am leichtesten „identifiziet“ werden:
For i = 1 To ActivePage.Shapes.Count
If ActivePage.Shapes(i).LayerCount > 0 Then
If ActivePage.Shapes(i).Layer(1).Name = „Rack“ Then