Clase Zoom (Word VBA)

Contiene opciones de ampliación (por ejemplo, el porcentaje de zoom) de una ventana o panel.

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Zoom en una colección.

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

PageColumns

Devuelve o establece el número de páginas que se mostrarán en paralelo en la pantalla al mismo tiempo en la vista Diseño de impresión o la vista preliminar.

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

PageFit

Devuelve o establece la ampliación de la vista de una ventana de manera que pueda verse toda la página o bien el ancho total de la página.

Valores posibles son wdPageFitBestFit - Ajuste perfecto de la página en la ventana activa, wdPageFitFullPage - Ver la página completa, wdPageFitNone - No ajustar la configuración de vista de la página, wdPageFitTextFit - Ajuste perfecto del texto de la página en la ventana activa.

La constante wdPageFitFullPage no tiene efecto si el documento no está en la vista Diseño de impresión. Cuando la propiedad PageFit se define como wdPageFitBestFit, el porcentaje de zoom se actualiza automáticamente cada vez que el tamaño de la ventana del documento cambia.

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

PageRows

Devuelve o establece el número de páginas que se van a presentar encima de otra en la pantalla al mismo tiempo en la vista Diseño de impresión o la vista preliminar.

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

Parent

Devuelve un objeto que representa el objeto primario del objeto Zoom.

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

Percentage

Devuelve o establece la ampliación de una ventana como un porcentaje.

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

Zooms.Item

Devuelve el objeto zoom especificado.

Sintaxis : expression.Item (Index)

Index: Tipo de zoom especificado.

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

Zooms.Parent

Devuelve un objeto que representa el objeto primario del objeto Zooms.

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