OnAction bei vielen Shapes ... ich meine sehr viele Shapes?

[Michael]

Hi.

Gibt es einen einfachen weg, um das OnAction-Event von Shapes gezielt
abzufangen?
Habe hier auf einem Tabellenblatt geschätzte 1000 Shapes, bei denen ich
für jedes einzelne je nachdem was für Farbe es hat, eine bestimmte
action ausführen will.

Momentan habe ich es so gelöst, das ich ein Modul habe:

Sub A_1(): A A_1: End Sub
Sub A_2(): A A_2: End Sub
Sub A_3(): A A_3: End Sub
Sub A_4(): A A_4: End Sub
....
Sub A_1000(): A A_1000: End Sub

Jedem Shape habe ich dann ein eigenes OnAction zugewiesen:
z.B. .OnAction = "A_1"

Sub A (Kasten as Shape)
'HIer dann die Action
End Sub

Hab ich was übersehen, so das es auch einfacher geht?

Michi

 

[Michael]

Sorry, wrong newsgroup .....

Michi