Folgende Fragestellung. Wir haben eine Tabelle mit mehreren Shapes-Objekten. Diese sind in Gruppen zu je 7 zusammengefasst. Es geht um die Färbung dieser Objekte.
Einzeln funktioniert das mit dem Einzeiler
Tabelle1.Shapes(Application.Caller).Fill.ForeColor.RGB = vbIwas
schon gut. Allerdings ist der Wunsch, dass die Elemente wie folgt die Farbe ändern:
Wird das erste Objekt einer Gruppe geklickt, dann ändert nur das erste Objekt die Farbe. Wird das zweite geklickt, dann ändern das erste und das zweite Objekt die Farbe usw.
Da es recht viele Gruppen sind, sind wir zu faul um für jede einzelne Gruppe eine eigene Prozedur anzulegen.
Ansprechbar sind die Objekte auch über Tabelle1.Shapes("NameSpezifischeGruppe").Shapes(Application.Caller).Fill.ForeColor...
Insgesamt bleiben zwei Fragen:
1) Wie bekomme ich die jeweils aktive Gruppe und darin den geklickten Shape angesprochen
2) Welche Eigenschaft der Gruppenelemente ist für deren Rangreihung zuständig (durchtaben in der Gruppe geht ja, von daher müsste ja eine Reihenfolge vorhanden sein).
Kann jmd helfen?
Danke euch für die Mühen.
Grüße
Steven