---

Erstmal ein freundliches Hallo liebes Forum!

Ich beschäftige mich nun seit etwa 3 Monaten mit VBA in Engineering Base und habe die Aufgabe bekommen Kommentare auf Selektierte Symbole im Stromlaufplan ein und auszublenden.

Nun gelingt es mir zwar die Symbole auf dem Sheet anzusprechen, deren TargetAssociations und Attribute auszugeben, jedoch ist es mir noch nicht gelungen auf die Sichtbaren Benennungen zuzugreifen.

For Each oSymbol In oSheet.Selection
      For Each oAssoc In oSymbol.TargetAssociations
        Debug.Print "Symbol:      " & vbTab & oSymbol.Attributes.ItemByID(aucAttrDesignation).Value
        Debug.Print "Assoc. Object:" & vbTab & oAssoc.RelatedObject.FullName
      Next
     
      For Each oAttr In oSymbol.Attributes
        Debug.Print oAttr.Name & vbTab & oAttr.Value
      Next
  Next

Gibt es eine Möglichkeit hierüber auf die Kommentare zuzugreifen oder bin ich komplett auf dem Holzweg?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

Hallo,

was auch geht, ist dem Textblock im Symbol einen extra Layer zuzuweisen.
Anschließend kann man dann (auch mit einem VBA Makro) im Stromlaufplan den Layer aus- oder einblenden.

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP