Classe Zoom (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.

Valeurs 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

Parent

Renvoie un Object qui représente l'objet parent de l'objet Zoom.

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

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

Zooms.Item

Renvoie l'objet Zoom spécifié.

Syntaxe : expression.Item (Index)

Index: Type de zoom spécifié.

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

Zooms.Parent

Renvoie un Object qui représente l'objet parent de l'objet Zooms.

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