Classe Zoom - options de grossissement (Word VBA)

Contient les options de grossissement (par exemple, le pourcentage de zoom) d'une fenêtre ou un volet.

For Each

Voici un exemple de traitement des éléments Zoom dans une collection

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

PageColumns

Cette propriété renvoie ou définit le nombre de pages à afficher côte à côte à l'écran en même temps en mode page ou Aperçu avant impression.

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

PageFit

Renvoie ou définit le pourcentage d’agrandissement d’une fenêtre afin que la totalité d’une page ou de sa largeur soit visible. Les valeurs de retour possibles sont wdPageFitBestFit - Ajuster la page à la fenêtre active, wdPageFitFullPage - Afficher la page entière, wdPageFitNone - Ne pas ajuster les paramètres d'affichage de la page, wdPageFitTextFit - Ajuster le texte de la page à la fenêtre active.

La constante wdPageFitFullPage est sans effet si le document n’est pas affiché en mode Page. Quand la constante PageFit est affectée à la propriété wdPageFitBestFit, le pourcentage de zoom est automatiquement recalculé chaque fois que la taille de la fenêtre du document est modifiée.

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

PageRows

Cette propriété renvoie ou définit le nombre de pages à l'écran en même temps en mode page ou Aperçu avant impression.

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

Percentage

Cette propriété renvoie ou définit le facteur d'agrandissement d'une fenêtre sous la forme d'un pourcentage.

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