ich habe mir das Zoomen mal auf Tastenkombinationen gelegt:
Sub ZoomIn()
'Tastenkombination STRG+I
Dim i As Integer
i = ActiveWindow.Zoom
'MsgBox "Aktuelle Zoomeinstellung in % =" & i, vbOKOnly, "Zoomeinstellung"
If i + 10 > 400 Then
i = 400
Else
ActiveWindow.Zoom = i + 10
End If
End Sub
Sub ZoomOut()
'Tastenkombination STRG+O
Dim i As Integer
i = ActiveWindow.Zoom
'MsgBox "Aktuelle Zoomeinstellung in % =" & i, vbOKOnly, "Zoomeinstellung"
If i - 10
Interessant ist allerdings, dass, bei Werten >390 bzw. Gruß
Peter