Spin Button Window Zoom + -
chrissey
wünsch Euch nen guten Morgen. Hätte ne Frage. Würde gerne über einen Spin Button
den Active Window Zoom +25 und - 25% steuern, kann da jmd was ausm Ärmel schütteln?
Habs probiert mit:
Private Sub SpinButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ActiveWindow.Zoom = ActiveWindow.Zoom + 25
End Sub
klappt aber nicht, wiess aber leider auch keinen anderen Weg. Möglicherweise den
aktuellen Zoomwert in eine Variable übergeben.
Danke Euch schon mal und Grüße
Chrissey
Anzeige