View.Zoom

Property Zoom As Double

Member of View

The Zoom property returns or sets the magnification level for a view.

The Zoom property of a custom view is applicable only if the UseZoom property of the view is set to True.

The following code example increases the zoom level by 50 for each view in the collection. The zoom level is set at 100 for the first view.

Sub Test() 
 Dim Vw As View 
 Dim VwCollection As Views 
 Dim intCounter As Integer 
 Set VwCollection = ActiveDocument.Views 
 intCounter = 1 
  For Each Vw In VwCollection 
   intCounter = intCounter + 1 
   Vw.Zoom = CDbl(intCounter * 50) 
  Next Vw 
 Set Vw = Nothing 
 Set VwCollection = Nothing 
End Sub