The following macro will toggle between 100 and 500%
Code:
Sub ToggleZoom()
If ActiveWindow.ActivePane.View.Zoom.Percentage = 100 Then
ActiveWindow.ActivePane.View.Zoom.Percentage = 500
Else
ActiveWindow.ActivePane.View.Zoom.Percentage = 100
End If
End Sub
See
Installing Macros