Zoomen in Userform
25.11.2021 09:39:08
Oraculix
In meiner Userform1 gibt es Bilder die ich bei bedarf Zoomen möchte.
Was auch mit untenstehenden Code Funktioniert.
Aber das Problem ist das ich dann nicht mehr in die normale Ansicht zurückkomme!
Was könnt ihr mir als Experten raten wie hier vorgehen soll damit ich wieder zur normal Ansicht gelange?
vZoom = 100 mit einem extra Button habe ich schon versucht, aber leider ist der Button nicht sichtbar wenn der vZoom = 112 ausgeführt wird.
'Zoom Plus
Private Sub CommandButton22_Click()
Dim vZoom As Variant
vZoom = 112
Me.zoom = CInt(vZoom)
End Sub
Oraculix