Userform nach links und rauf
01.01.2022 22:27:26
Oraculix
In meiner Userform1 habe ich ein Bild mit Schrift.
Manchmal ist die Schrift etwas zu klein in dem Bild und deswegen habe ich einen Zoom Button in die Userform1 eingefügt.
Der Code funktioniert gut aber:
die Userform1 müsste ein Stück nach Links verschoben werden und ein Stück nach oben.
Aber nur wenn der Zoom Button gedrückt wird danach soll alles wieder normal aussehen.
Frage:
Wie muss ich den Code unten Ändern damit die Userform1 im Zoom nach Links und ein Stück nach oben Positioniert wird?
' Userform1 Zoom+
Private Sub CommandButton22_Click()
If Me.zoom 118 Then
Me.zoom = 118
Me.Left = 0
Else: Me.zoom = 99
End If
End Sub
Oraculix