OnAction in Gruppe funktioniert nicht
12.05.2020 16:24:21
Johannes
ich habe in meinem Tabellenblatt wsIntro zwei Formen "btnDeutsch" sowie "btnEnglish" gruppiert.
Mit dem folgenden Makro möchte ich beim Klicken auf eine der Formen erreichen, dass das zugewiesene Makro entfernt wird und bei der zweiten Form ein Makro mit der OnAction-Methode hinzugefügt wird. Leider erhalte ich darauf hin einen Fehler 1004. Wenn ich die Gruppierung der beiden Formen aufhebe funktioniert die OnAction-Methode einwandfrei. Das muss doch jedoch auch mit Gruppierung möglich sein oder?
Public Sub btnSprache_Klicken()
Dim shpSprache As Shape
Dim shpGruppe As Shape
Set shpGruppe = wsIntro.Shapes(wsIntro.Shapes(Application.Caller).ParentGroup.Name)
For Each shpSprache In shpGruppe.GroupItems
If Application.Caller = shpSprache.Name Then
shpSprache.OnAction = ""
Else
shpSprache.OnAction = "test"
End If
Next shpSprache
End Sub
Vielen Dank im Voraus für die Hilfe.
Johannes