Klick Code kürzen
09.02.2024 09:20:22
Dieter(Drummer)
mit dem Code werden 4 Buttons (Shapes) hintereinander per Klick in vertiefendem 3D und zweiter Klick die Buttons wieder in norml 3D dargestellt. Der Code ist von "Herber: Udo (Uduuh), 06.02.2024 15:29:44. Das funktioniert perfekt.
Kann der Code gekürzt werden, dass der gleiche Code nicht 4 x für unterschiedliche Buttons sein muss?
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Code in Modul1
'Herber: Udo (Uduuh), 06.02.2024 15:29:44
Sub Tief_Hoch_Click() 'Rechteck_Grafik Klick rein raus
With ActiveSheet.Shapes("Picture 1").ThreeD
.BevelTopType = msoBevelSoftRound 'Mx
.BevelTopInset = 15 '12
.BevelTopDepth = 10 '10
.Visible = Not .Visible
'End With
With ActiveSheet.Shapes("Picture 2").ThreeD
.BevelTopType = msoBevelSoftRound 'Mx
.BevelTopInset = 15 '12
.BevelTopDepth = 10 '10
.Visible = Not .Visible
' End With
With ActiveSheet.Shapes("Picture 3").ThreeD
.BevelTopType = msoBevelSoftRound 'Mx
.BevelTopInset = 15 '12
.BevelTopDepth = 10 '10
.Visible = Not .Visible
'End With
With ActiveSheet.Shapes("Picture 4").ThreeD
.BevelTopType = msoBevelSoftRound 'Mx
.BevelTopInset = 15 '12
.BevelTopDepth = 10 '10
.Visible = Not .Visible
End With
End With
End With
End With
End Sub