Decreases the magnification of the specified view.
expression.ZoomOut
expression Required. An expression that returns a View object.
This example decreases the magnification of the active view.
Sub Zoom() ActiveView.ZoomOut End Sub