|
Guten Morgen,
vielen Dank für Deine Antwort.
Muss ich diesen Code in das Modul des Toggle-Buttons einfügen, oder diesen in das Arbeitsblatt platzieren?
Ich habe von VBA wirklich nicht viel Ahnung und bastel mir hier alles irgendwie zurecht. :-)
Ausprobiert habe ich beide Varianten. Mein Modul sieht jetzt so aus und der Button um den es geht heißt "Rechteck: abgerundete Ecken 1".
Muss ich hier noch irgendwas ergänzen?
Option Explicit
Sub Toggle()
ActiveSheet.Shapes("Rechteck: abgerundete Ecken 2").Visible = Not ActiveSheet.Shapes("Rechteck: abgerundete Ecken 2").Visible
End Sub
Sub HideButton_Klicken()
Dim shp As Shape
On Error GoTo Exit_
Set shp = ActiveSheet.Shapes(Application.Caller)
Debug.Print "Shape """; shp.Name; """ clicked!"
shp.Visible = msoFalse
Exit_:
End Sub
|