Clase Zoom - opciones de ampliación (Word VBA)

Contiene opciones de ampliación (por ejemplo, el porcentaje de zoom) de una ventana o panel. Para usar una variable de clase Zoom, primero debe ser instanciado, por ejemplo

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. Posibles valores de retorno 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

Percentage

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

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