Klasse Page (Excel VBA)

Die Klasse Page stellt eine Seite in einer Arbeitsmappe dar.

Set

Um eine Page -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der Page Klassenvariablen verwendet werden : Pages.Item, PageSetup.EvenPage, PageSetup.FirstPage und PageSetup.Pages

For Each

Hier ist ein Beispiel für die Verarbeitung der Page -Elemente in einer Sammlung

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

CenterFooter

Gibt ein Bild oder einen Text an, der in der Fußzeile zentriert ausgerichtet werden soll.

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

CenterHeader

Gibt ein Bild oder einen Text an, der in der Seitenkopfzeile zentriert ausgerichtet werden soll.

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

LeftFooter

Gibt ein Bild oder einen Text an, der linksbündig ausgerichtet werden soll.

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

LeftHeader

Gibt ein Bild oder einen Text an, der am Seitenkopf linksbündig ausgerichtet werden soll.

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

RightFooter

Gibt ein Bild oder einen Text an, der in der Fußzeile rechtsbündig ausgerichtet werden soll.

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

RightHeader

Gibt ein Bild oder einen Text an, der in der Seitenkopfzeile rechtsbündig ausgerichtet werden soll.

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

Pages.Count

Gibt die Anzahl der Objekte in der Auflistung zurück.

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

Pages.Item

Gibt ein Page -Objekt zurück, das eine Auflistung von Seiten in einer Arbeitsmappe darstellt.

Syntax : expression.Item (Index)

Index: Indexwert der Seite.

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