Class Zoom (Word VBA)

Contains magnification options (for example, the zoom percentage) for a window or pane. The Zoom object is a member of the Zooms collection.

For Each

Here is an example of processing the Zoom items in a collection.

Dim pan As Pane: Set pan = 
Dim zoo As Zoom
For Each zoo In pan.Zooms
	With zoo
		
	End With
Next zoo

PageColumns

Returns or sets the number of pages to be displayed side by side on-screen at the same time in print layout view or print preview.

With ActiveDocument.ActiveWindow.View 
 .Type = wdPrintView 
 .Zoom.PageColumns = 2 
 .Zoom.PageRows = 1 
End With

PageFit

Returns or sets the view magnification of a window so that either the entire page is visible or the entire width of the page is visible.

Possible Values are wdPageFitBestFit - Best fit the page to the active window, wdPageFitFullPage - View the full page, wdPageFitNone - Do not adjust the view settings for the page, wdPageFitTextFit - Best fit the text of the page to the active window.

The wdPageFitFullPage constant has no effect if the document isn't in print view. When the PageFit property is set to wdPageFitBestFit, the zoom percentage is automatically recalculated every time the document window size is changed. Setting this property to wdPageFitNone keeps the zoom percentage from being recalculated whenever this happens.

With Windows("Letter.doc").View 
 .Type = wdNormalView 
 .Zoom.PageFit = wdPageFitBestFit 
End With

PageRows

Returns or sets the number of pages to be displayed one above the other on-screen at the same time in print layout view or print preview.

PrintPreview = True 
With ActiveDocument.ActiveWindow.View.Zoom 
 .PageColumns = 1 
 .PageRows = 2 
End With

Parent

Returns an object that represents the parent object of the specified Zoom object.

Dim zoo As Zoom: Set zoo =  
Dim objParent As Object
Set objParent = zoo.Parent

Percentage

Returns or sets the magnification for a window as a percentage.

With ActiveDocument.ActiveWindow.View 
 .Type = wdNormalView 
 .Zoom.Percentage = 80 
End With

Zooms.Item

Returns the specified Zoom object.

Syntax : expression.Item (Index)

Index: The specified zoom type.

Dim zms As Zooms: Set zms =  
Dim zoo As Zoom
Set zoo = zms(Index:=1)

Zooms.Parent

Returns an object that represents the parent object of the specified Zooms object.

Dim zms As Zooms: Set zms =  
Dim objParent As Object
Set objParent = zms.Parent