Propiedad View.ActivePage (Publisher)

Devuelve un objeto Page que representa la página mostrada actualmente en la ventana de Microsoft Publisher.

Sintaxis

expresión. ActivePage

expresión Variable que representa un objeto View .

Valor devuelto

Page

Ejemplo

En este ejemplo se guarda la página activa como imagen JPEG. Tenga en cuenta que debe reemplazarse por una ruta de acceso de archivo válida para que PathToFile funcione este ejemplo.

Sub SavePageAsPicture() 
 ActiveView.ActivePage.SaveAsPicture _ 
 FileName:="PathToFile" 
End Sub

En este ejemplo se agrega una guía de regla vertical y otra horizontal a la página activa que se cruza en el centro de la página.

Sub SetRulerGuidesOnActivePage() 
 Dim intHeight As Integer 
 Dim intWidth As Integer 
 
 With ActiveView.ActivePage 
 intHeight = .Height / 2 
 intWidth = .Width / 2 
 With .RulerGuides 
 .Add Position:=intHeight, Type:=pbRulerGuideTypeHorizontal 
 .Add Position:=intWidth, Type:=pbRulerGuideTypeVertical 
 End With 
 End With 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.