Active Shape ? statt Rectangle Shape ...1 usw
24.08.2004 17:32:07
udo
statt
...
ActiveSheet.Shapes("Rectangle 1").Select
...
ausweicht auf ActiveShape oder so, habe in einer EXCEL Datei mehrere Autoformen ,
also Shapes 1 - ca. 200 drinne , und auf die meisten wird geklickt da dort
Makros hinterlegt sind .
Nun sind aber auf ca. 150 Sapes die gleichen Makros anzuwenden , und jedes mal
wennich dann eines dieser Shapes anklicke, dann soll es auch gleich seine farbe usw. ändern ...
Um nicht 150 verschiedene Makros zu erhalten, in dem in jedem Makro auf Shape 1 usw -150 verwiesen wird, bräuchte ich unbedingt wenn möglich in etwa
einen Befehl , der irgendwie mit ActiveShape oder so ... arbeitet, der mir also das Shape das geklickt wird per active ? erkennt und es dann verändert ...
somit hätte ich für all diese Autoformen das ein und das selbe makro
könnt ihr mir bitte helfen bei der Anweisung, ich bekomms alleine leider nicht
hin ,
wäre toll ,
Vielen lieben Dank schon mal im Voraus an alle helfer
udo