Der Weg dürfte eher hölzern sein. Die "sichtbaren Attribute" werden beim Symbolbau zusammengestellt. Dies läßt sich nicht über irgendwelche Shape-Eigenschaften im VBA ersetzen.
Denkbar sind mehrere Wege:
1) Man legt sich bei jedem Gerät "Beschriftungsattribute" an und verwendet diese im Symbolbau. Das Makro kann dann dort Texte hineinschreiben bzw. hineinkopieren. Der Nachteil ist, daß Änderungen im Quellattribut nicht automatisch angezeigt werden. Von daher ist es nicht besonders praktisch.
2) Wenn es überschaubar ist, kann man den Objekten auch ganzzahlige Attribute verpassen und diese dann am Objekt per VBA verändern. Für die Textfelder nimmt man dann Formelattribute, die je nach Zahl in den Einstellungen auf verschiedene Attribute zugreifen und diese Anzeigen. Man muß dann noch eine F5 hinbekommen (oder den Anwender ausführen lassen) damit die Formelattribute auch aktualisiert werden.
3) Man legt sich für die betreffenden Symbole jeweils einen Symbolsatz mit verschiedenen Parametern an und tauscht die Shapes je nach Anforderung per VBA aus.
4) Man arbeitet mit Visio-VBA und versucht darüber an die grafischen Eigenschaften der Textfelder zu gelangen. Dann kann man die auszublendenen Texte zumindest weiß einfärben.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP