Shapes in einer Gruppe per VBA-Code ansprechen

[Michael King]

Hallo,

in einem Excel-Sheet habe ich eine Gruppe "Group 23".
In dieser Gruppe sind 10 einzelne Shapes zur Gruppe zusammengruppiert.

Per VBA-Code möchte ich nun den Text des Shapes "shapeHeader1" welches
innerhalb der Gruppierung liegt verändern.

Wie geht das?

Kann man das Shape direkt ansprechen, ohne daß man erst Ungroup machen muß?


Danke im Voraus!

[Melanie Breden]

Hallo Michael,

Post by Michael King
in einem Excel-Sheet habe ich eine Gruppe "Group 23".
In dieser Gruppe sind 10 einzelne Shapes zur Gruppe zusammengruppiert.
Per VBA-Code möchte ich nun den Text des Shapes "shapeHeader1" welches
innerhalb der Gruppierung liegt verändern.
Wie geht das?
Kann man das Shape direkt ansprechen, ohne daß man erst Ungroup machen muß?

die Gruppierung muss nicht aufgehoben werden.
Um einzelne Shapes innerhalb der Gruppierung zu verändern verwende die
GroupItem-Eigenschaft:

ActiveSheet.Shapes("Group 23").GroupItems("shapeHeader1").Name = "NeuerName"


Mit freundlichen Grüssen
Melanie Breden

[Melanie Breden]

Hallo Michael,

Post by Michael King
in einem Excel-Sheet habe ich eine Gruppe "Group 23".
In dieser Gruppe sind 10 einzelne Shapes zur Gruppe zusammengruppiert.
Per VBA-Code möchte ich nun den Text des Shapes "shapeHeader1" welches
innerhalb der Gruppierung liegt verändern.

ich hatte nicht richtig gelesen, dass du den Text der Grafik ändern willst.
IMO kommst du unter der Gruppierung da nicht heran.

Du könntest aber die Grafik shapeHeader1 mit einer Zelle verknüpfen, dann brauchst
du nur den Text in der Zelle ändern und er wird just in time in der Grafik geändert.

Hebe für die Zellverknüpfung die Gruppierung auf, markiere die Grafik und schreibe in
die Bearbeitungsleiste den Bezug zu der Zelle mit dem anzuzeigenden Text:

=A1

Beende die Eingabe des Zellbezugs mit 'Enter' und stelle die Gruppierung wieder her.
Mit VBA kannst du dann den Text der Zelle A1 ändern.


Mit freundlichen Grüssen
Melanie Breden