Shape löschen
15.04.2005 12:20:24
Jürgen
Ich habe auf einem Arbeitsblatt 125 Shapes. Bei klick auf ein Shape soll für dieses gif ein anderes ersetzt werden (rote Kugel->weisse Kugel). Da es wohl nicht anders geht, wollte ich es so machen:
Position von Shape speichern, Shape löschen, neues Shape einfügen, Position ändern, Name ändern. (Wenn es einfacher geht würde ich mich freuen)
Mein Problem ist nun folgendes:
Sub Kugel_bei_klick()
ActiveSheet.Shapes(Application.Caller).Delete
End Sub
funktioniert nicht immer bei dem ersten klick. Mal beim ersten, oder auch erst nach dem 4. klick wird das Shape gelöscht.
vielen Dank schon mal
Jürgen