BlogPowerpoint – Nur sichtbare Folien nummerieren

Powerpoint – Nur sichtbare Folien nummerieren

Powerpoint-sichtbare-folien-nummerierung-Tipps-und-Tricks

In dem Artikel Seitenzahlen x von y in Powerpoint haben wir aufgezeigt, wie Sie diese Darstellung mit ein paar einfachen Zeilen VBA-Code in eine Präsentation einfügen können. Sollten in der Präsentation allerdings Folien ausgeblendet sein, sorgt diese Darstellung der Seitenzahlen für Lücken in der Nummerierung. Es ist schon ärgerlich, wenn die zweite Folie in einer Präsentation mit Folie 5 von 30 benannt ist… und das, obwohl Sie für den geplanten 10 minütigen Vortrag nur 4 Folien aus der Präsentation verwenden wollen. Hier erfahren Sie, wie man dieses leidige Problem aus der Welt schaffen kann.

Schritt 1: Entwicklertools anzeigen

Da Microsoft für das Einfügen der Informationen keine direkte Möglichkeit anbietet, müssen wir hier auf die VBA Entwicklerumgebung zugreifen und ein paar Zeilen VBA-Code einfügen. Damit Sie den Programmcode nutzen können, verschaffen wir uns zunächst einmal Zugriff auf den VBA-Editor. Dazu müssen wir die Entwicklerumgebung in das Menüband bekommen.

Hierzu klicken Sie unter „Datei“ auf „Optionen“,

Backstage Bereich
Backstage Bereich

dann auf „Menüband anpassen“.

Powerpoint Optionen
Powerpoint Optionen

Setzen Sie ein Häkchen bei „Entwicklertools“ in der rechten Spalte …

Entwicklertools aktivieren
Entwicklertools aktivieren

… und klicken Sie anschließend auf OK, um den Vorgang abzuschließen.

Schritt 2: Code eingeben

In Ihrem Menüband finden Sie nun die Registerkarte „Entwicklertools“. Klicken Sie auf „Entwicklertools“ und anschließend im Menüband auf „Visual Basic“.

VBA Editor öffnen
VBA Editor öffnen

Sie haben den VBA-Editor gestartet und benötigen nun ein Modul, in das Sie den Programmcode einfügen können. Klicken Sie hierzu auf „Einfügen“ und auf „Modul“.

Modul einfügen
Modul einfügen

Da es immer mal wieder Probleme mit der Konvertierung von Sonderzeichen im Programmcode gibt, finden sie am rechten Rand des Beitrags einen Link zum Download der Beispieldatei:

Option Explicit

Sub NurSichtbareSeiten()
Dim AnzSeiten As Integer
Dim Zähler as Integer, X as Integer, AnzSichtbareSeiten As Integer
Dim Sld As Slide

‚Anzahl der sichtbaren Folien ermitteln
AnzSeiten = ActivePresentation.Slides.Count
With ActivePresentation.Slides
X = 0
For Zähler = 1 To AnzSeiten
If ActivePresentation.Slides.Range(Array(Zähler)).SlideShowTransition.Hidden = msoFalse Then
X = X + 1
End If
Next Zähler
End With

AnzSichtbareSeiten = X

‚Seitenzahlen eintragen
With ActivePresentation.Slides
X = 0
For Zähler = 1 To AnzSeiten
If ActivePresentation.Slides.Range(Array(Zähler)).SlideShowTransition.Hidden = msoFalse Then
X = X + 1
End If
.Range(Zähler).HeadersFooters.Footer.Visible = msoCTrue
.Range(Zähler).HeadersFooters.Footer.Text = _
„Folie “ & X & “ von “ & AnzSichtbareSeiten
Next Zähler
End With

End Sub

Sub delFuss()
‚Fußzeile löschen

Dim Sld As Slide

For Each Sld In ActivePresentation.Slides
Sld.HeadersFooters.Footer.Visible = msoFalse
Next

End Sub

Das Ergebniss sollte in etwa so aussehen:

VBA Modul mit Quellcode
VBA Modul mit Quellcode

Schliessen sie nun den VBA Editor. Klicken Sie im Register Entwicklertools auf die Schaltfläche Makros.

Makroübersicht aufrufen
Makroübersicht aufrufen

In der Makroübersicht sollten Sie nun zwei Einträge sehen.

Makroübersicht
Makroübersicht

Führen Sie das Makro NurSichtbareSeiten aus, so werden alle Folien, auch die ausgeblendeten, mit dem Eintrag Seite X von Y versehen – allerdings werden die ausgeblendeten Folien, wie am Anfang versprochen, bei der Nummerierung nicht berücksichtigt.

Folienübersicht mit eingefügter Fußzeile
Folienübersicht mit eingefügter Fußzeile

 Anmerkung:

Die Einträge in der Fußzeile werden nicht automatisch aktualisiert. Sollten Sie also Folien zu Ihrer Präsentation hinzufügen oder die Reihenfolge der Folien ändern, muss die eingefügte Fußzeile mit dem Makro delFuss entfernt und mit dem Makro NurSichtbareSeiten wieder neu eingefügt werden.

Schritt 3: Speichern

Damit Ihre Mühen nicht umsonst waren, ist folgender Schritt wichtig: Sie müssen die PowerPoint-Präsentation als .pptm, also als „PowerPoint mit Makros“ speichern.

Präsentation als *.pptm speichern
Präsentation als *.pptm speichern

Diese Prozedur muss für jede Präsentation durchgeführt werden, die Makros enthält. Aber wer das einmal geschafft hat, dem sollte es beim zweiten Mal leicht von der Hand gehen.

Nun liegt es an Ihnen, den Code z.B. in Ihren Foliemaster oder eine Präsentationsvorlage einzubauen.

Viel Spaß damit!

Kontakt

Dein INCAS Team
Akkordion öffnen
telephone-icon-contact-coaching-box
0800 4772466
email-icon-contact-coaching-box
info@incas-training.de

*“ zeigt erforderliche Felder an

Hidden
Dieses Feld dient zur Validierung und sollte nicht verändert werden.

Schulungen die dich interessieren könnten

Bewertungen

Kundenstimme männlich
Wolfgang N.
ThyssenKrupp Nirosta
star-participantstar-participantstar-participantstar-participantstar-participant
Eine gute Adresse für das Erlernen scheinbar schwieriger und trockener Themen, die hier gut aufbereitet werden.
Kundenstimme männlich
Philipp M.
Wacom Europe GmbH
star-participantstar-participantstar-participantstar-participantstar-participant
Sehr gute Organisation, guter Trainer - alles super!
Kundenstimme männlich
Michael W.
Ernst & Young Retail Services GmbH
star-participantstar-participantstar-participantstar-participantstar-participant
Ich fühlte mich in diesem Seminar hervorragend betreut. Es war sehr praxisorientiert und anschaulich.
Kundenstimme männlich
Markus H.
CARAT Dreieich
star-participantstar-participantstar-participantstar-participantstar-participant
Der Trainer machte einen sehr netten und kompetenten Eindruck und ging auf unsere Wünsche und Anregungen sehr praxisorientiert ein .