Anzeigen der Gesamtseitenzahl in der Fusszeile einer Powerpoint-Präsentation

Leider verfügt Powerpoint 97 nicht über vergleichbare Fusszeilen-Funktionen wie Word. Mit dem folgenden Makro kann aber eine Fusszeile der Art "Seite 1 von 10" erzeugt werden. Natürlich muss die Aktualisierung immer manuell über das Makro erfolgen, wenn sich die Seitenzahl ändert. Sie müssen das Makro also später via Extras/Makro/Makros ausführen.

Sub AnzSeitenFusszeile()

Dim AnzSeiten As Long, Counter As Integer

AnzSeiten = ActivePresentation.Slides.Count

With ActivePresentation.Slides

For Counter = 1 To AnzSeiten

.Range(Counter).HeadersFooters.Footer.Text = "Seite " _

& Counter & " von " & AnzSeiten

Next Counter

.Range.HeadersFooters.Footer.Visible = msoCTrue

End With

End Sub

Nachtrag: Für Powerpoint 2000 hat uns ein Leser einen Tipp geschickt; an dieser Stelle ein Merci an Daniel Rudolph. Er schrieb:

"Es funktioniert in Powerpoint 2000 allerdings nur, wenn man es wie folgt verändert:

Sub AnzSeitenFusszeile()

Dim AnzSeiten As Long, Counter As Integer

AnzSeiten = ActivePresentation.Slides.Count

With ActivePresentation.Slides

For Counter = 1 To AnzSeiten

.Range(Counter).HeadersFooters.Footer.Text = Counter & " / " & AnzSeiten

.Range(Counter).HeadersFooters.Footer.Visible = msoCTrue

Next Counter

End With

End Sub

Das visible-Attribut muss also mit in die With-Schleife; sonst gibt es eine Fehlermeldung."