Classe Page (Excel VBA)

La classe Page représente une page dans un classeur.

Set

Pour utiliser une variable de classe Page, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Page : Pages.Item, PageSetup.EvenPage, PageSetup.FirstPage et PageSetup.Pages

For Each

Voici un exemple de traitement des éléments Page dans une collection

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

CenterFooter

Spécifie une image ou du texte à centrer dans le pied de page.

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

CenterHeader

Spécifie une image ou du texte à centrer dans l’en-tête de page.

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

LeftFooter

Spécifie une image ou du texte à aligner à gauche dans le pied de page.

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

LeftHeader

Spécifie une image ou du texte à aligner à gauche dans l’en-tête de page.

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

RightFooter

Spécifie une image ou du texte à aligner à droite dans le pied de page.

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

RightHeader

Spécifie une image ou du texte à aligner à droite dans l’en-tête de page.

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

Pages.Count

Renvoie le nombre d'objets dans la collection. En lecture seule longue.

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

Pages.Item

Renvoie un objet page qui représente une collection de pages dans un classeur. En lecture seule.

Syntaxe : expression.Item (Index)

Index: Valeur d'index de la page.

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