Klick auf Userform, Label1, mit Label1 Änderung
07.09.2025 11:43:47
Dieter(Drummer)
der gezeigte Code verändert die "Ellipse 1" auf aktuellen Tabellenblatt und das funktioniert auch.
Musterdatei:
https://www.herber.de/bbs/user/178849.xlsm
Es soll aber auf Userform1, das Shape "Label1" die Änderung, bei Kick auf Label1, vollziehen.
Ich schaffe es nicht, den Code so zu ändern, dass sich Label1 auf Userform1 bei Klick kurz ändert.
Wie muss der Code geändert werden und muss er dann unter dem Klick Ereignis von Label1 auf Userform, oder unter Userform Initialize hinterlegt werden?
Mit der Bitte um Hilfe, Gruß,
Dieter(Drummer)
Sub Deep()
Dim EndeZeit As Double 'Wartezeit
ActiveSheet.Shapes.Range(Array("Ellipse 1")).Select
With Selection.ShapeRange.ThreeD
.BevelTopType = msoBevelSlope
.BevelTopInset = 8
.BevelTopDepth = 8
End With
EndeZeit = Timer + 0.3 ' 0,0005 Sekunden entsprechen 0,5 Millisekunden
Do While Timer EndeZeit
DoEvents
Loop
ActiveSheet.Shapes.Range(Array("Ellipse 1")).Select
With Selection.ShapeRange.ThreeD
.BevelTopType = msoBevelCircle
.BevelTopInset = 8
.BevelTopDepth = 8
End With
Range("D9").Select
End SubAnzeige