Clase Page (Excel VBA)

La clase Page representa una página de un libro.

Set

Para usar una variable de clase Page, primero debe ser instanciado, por ejemplo

Dim pag as Page
Set pag = ActiveChart.PageSetup.Pages(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Page : Pages.Item, PageSetup.EvenPage, PageSetup.FirstPage y PageSetup.Pages

For Each

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

Dim pag As Page
For Each pag In ActiveChart.PageSetup.Pages
	
Next pag

CenterFooter

Especifica una imagen o texto que se alineará al centro en el pie de página.

Dim hfrCenterFooter As HeaderFooter
Set hfrCenterFooter = ActiveChart.PageSetup.Pages(1).CenterFooter

CenterHeader

Especifica una imagen o texto que se alineará al centro en el encabezado de página.

Dim hfrCenterHeader As HeaderFooter
Set hfrCenterHeader = ActiveChart.PageSetup.Pages(1).CenterHeader

LeftFooter

Especifica una imagen o texto que se va a alinear a la izquierda en el pie de página.

Dim hfrLeftFooter As HeaderFooter
Set hfrLeftFooter = ActiveChart.PageSetup.Pages(1).LeftFooter

LeftHeader

Especifica una imagen o texto que se va a alinear a la izquierda en el encabezado de página.

Dim hfrLeftHeader As HeaderFooter
Set hfrLeftHeader = ActiveChart.PageSetup.Pages(1).LeftHeader

RightFooter

Especifica una imagen o texto que se va a alinear a la derecha en el pie de página.

Dim hfrRightFooter As HeaderFooter
Set hfrRightFooter = ActiveChart.PageSetup.Pages(1).RightFooter

RightHeader

Especifica una imagen o texto que se va a alinear a la derecha en el encabezado de página.

Dim hfrRightHeader As HeaderFooter
Set hfrRightHeader = ActiveChart.PageSetup.Pages(1).RightHeader

Pages.Count

Devuelve el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveChart.PageSetup.Pages.Count

Pages.Item

Devuelve un objeto Page que representa una colección de páginas de un libro.

Sintaxis : expression.Item (Index)

Index: Valor de índice de la página.

Dim pagItem As Page
Set pagItem = ActiveChart.PageSetup.Pages(Index:=1)