Toggle Button funktioniert nicht
16.01.2020 20:13:08
MarC
ich habe mir einen schönen Toggle Button gebastelt der sich beim klicken von a nach b verschieben und die farbe ändern soll. Aber beim betätigen passiert gar nichts =( Habe ich vielleicht irgendwas vergessen oder falsch gemacht?
Sub ON_OFF_BUTTON2()
With Sheets("Project")
With .Shapes("Button")
.Left = Worksheet.Shapes("Frame").Left + Worksheet.Shapes("Frame").Width - . _
Width - 2 'Button verschieben / Hier anpassen!
.Top = Worksheet.Shapes("Frame").Top + 3 _
'Button verschieben / Hier anpassen!
.TextFrame.Characters.Text = "OFF" ' _
Button Text / Hier anpassen!
.Fill.ForeColor.RGB = RGB(255, 0, 0) ' _
Farbe / Hier anpassen!
End With
With .Shapes("Button")
.Left = Worksheet.Shapes("Frame").Left + 2 _
'Button verhscieben / Hier anpassen!
.Top = Worksheet.Shapes("Frame").Top + 3 _
'Button verschieben / Hier anpassen!
.TextFrame.Characters.Text = "ON" ' _
Button Text / Hier anpassen!
.Fill.ForeColor.RGB = RGB(0, 153, 0) ' _
Farbe / Hier anpassen!
End With
End With
End Sub
Anzeige
