Classe Page (Excel VBA)

A classe Page representa uma página em uma pasta de trabalho. Use o objeto Page e os métodos e propriedades relacionados para definir programaticamente o layout de página em uma pasta de trabalho.

Set

Para usar uma variável de classe Page, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Page: Pages.Item, PageSetup.EvenPage, PageSetup.FirstPage e PageSetup.Pages

For Each

Aqui está um exemplo de processamento dos itens Page em uma coleção.

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

CenterFooter

Especifica uma imagem ou texto a ser alinhado centralizado no rodapé da página.

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

CenterHeader

Especifica uma imagem ou texto a ser alinhado centralizado no cabeçalho da página.

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

LeftFooter

Especifica uma imagem ou texto a ser alinhado à esquerda no rodapé da página.

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

LeftHeader

Especifica uma imagem ou texto a ser alinhado à esquerda no cabeçalho da página.

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

RightFooter

Especifica uma imagem ou texto a ser alinhado à direita no rodapé da página.

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

RightHeader

Especifica uma imagem ou texto a ser alinhado à direita no cabeçalho da página.

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

Pages.Count

Retorna o número de objetos na coleção. Somente leitura Long.

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

Pages.Item

Retorna um objeto Page que representa uma coleção de páginas em uma pasta de trabalho. Somente leitura.

Sintaxe : expression.Item (Index)

Index: Valor de índice da página.

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