Fügen Sie die Gesamtzahl der Folien in PowerPoint 2007 ein

Ist es möglich, die Gesamtzahl der Folien in einer PowerPoint-Präsentation in eine Fußnote einzufügen? Ich suche einen automatisierten Weg.

Natürlich könnte ich die Fußzeile bearbeiten und manuell einfügen, aber wenn ich die Folien vergrößere / verkleinere, müsste ich sie anpassen. Und das vergessen wir immer wieder.

In der Hilfe von Microsoft wird erklärt, wie dies manuell durchgeführt wird. Ich kann nicht glauben, dass PowerPoint es nicht hat ...

Wenn Sie nach einer Option oder Konfigurationseinstellung suchen, die jeder von Ihnen erstellten Präsentation automatisch hinzugefügt wird, gibt es keine. Wenn Sie jedoch die Kopf- oder Fußzeile bearbeiten, können Sie dort automatisch Foliennummern hinzufügen, die auf allen Folien angezeigt werden.

http://office.microsoft.com/en-us/powerpoint/HA101181931033.aspx

Dies ist im Grunde der Code von pwrpntuser , der bis zur vollständigen ausführbaren Anleitung erweitert wurde.

Makro erstellen

1. Stellen Sie in PowerPoint 2007 und neueren Versionen sicher, dass Sie Ihre Präsentation unter .pptmErweiterung gespeichert haben (Standardpräsentation mit zulässigen Makros).

2. Stellen Sie sicher, dass Sie mit der in diesem Artikel ¹ beschriebenen Methode Foliennummern hinzugefügt haben .

3. Öffnen Sie das " Makro " -Fenster ² . Klicken Sie in PowerPoint 2007 und höher auf die ViewRegisterkarte (Letzte) und dann auf die MacroSchaltfläche in der letzten Symbolleistengruppe. Bei Earlerversionen Tools > Macroaus dem Menü auswählen .

4. Geben Sie einen Namen für Ihr Makro ein (sagen wir PageCountUpdater) und klicken Sie auf Create.

5. Fügen Sie den Makrocode (aus der Antwort von pwrpntuser oder darunter) zwischen Sub PageCountUpdater()und ein End Sub. Ändern Sie vanin der am meisten eingerückten Zeile in ofoder in einer ähnlichen Sprache.

6. Speichern Sie Makro, und schließen Sie Microsoft Visual Basic für Applikationen. Kehren Sie zu PowerPoint zurück.

Sie sind fertig. Code, der eingefügt werden soll (voll und mit korrigiertem "Klebewort"):

Sub PageCountUpdater()
    Dim s As Slide
    Dim shp As Shape

    For Each s In ActivePresentation.Slides
        s.DisplayMasterShapes = True
        s.HeadersFooters.SlideNumber.Visible = msoTrue

        For Each shp In s.Shapes
            If Left(shp.Name, 12) = "Slide Number" Then
                shp.TextFrame.TextRange.Text = s.SlideNumber & " of " & ActivePresentation.Slides.Count
            End If

        Next
    Next
End Sub

Makro ausführen

1. Öffnen Sie das " Makro " -Fenster erneut.

2. Wähle ein gespeichertes PageCountUpdaterMakro und drücke Run.

Sie müssen dies jedes Mal manuell tun. Eine Tastenkombination wäre sehr willkommen. Aber ... es gibt keine Möglichkeit, die PowerPoint-Verknüpfungen zu ändern, es sei denn, Sie kaufen ein kommerzielles Plug-in, für das Sie einen Preis ab 20 Euro pro Computer zahlen müssen. Weitere Informationen finden Sie am Ende dieses oder dieses Artikels.

Makro löschen

Dieses Makro wird nur ausgeführt, wenn Sie es benötigen. Es ist kein Live-Makro. Es aktualisiert das Feld mit der tatsächlichen Anzahl der Folien und das war's. Das Feld selbst ist ein Standardtextfeld. Keine Magie. Das bedeutet, dass Sie Ihre Datei einfach zurückkonvertieren .pptxund dieses Makro wegwerfen können, sobald Sie sicher sind, dass Ihre Präsentation fertig ist und Sie keine Folien mehr hinzufügen werden. Das Feld bleibt mit den Werten unverändert, sobald das Makro entfernt wird.

Dies ist komfortabel, da viele Benutzer Dokumente mit Makros nicht mögen und viele Präsentationsorte, Messen, Konferenzen usw. Sie einfach keine .pptmDatei ausführen lassen .

Dies ist auch gut, da dieses Makro Nummerierungsfelder auf allen Folien (außer den Titelfeldern - siehe Fußnote 1 am Ende) neu erstellt, auch wenn Sie sie manuell entfernen. Führen Sie es daher ein letztes Mal aus, nachdem Sie sich über die endgültige Anzahl und Reihenfolge der Folien sicher sind. Anschließend können Sie es entfernen.

Makrofähige Datei öffnen

Wenn Sie sich dafür entscheiden, .pptmErweiterung und Makro beizubehalten, wird dieses Dokument immer mit deaktivierten Makros geöffnet, und Sie müssen Enable macrosjedes Mal (wenn Sie die Standardeinstellungen verwenden) auf klicken , um sie zu aktivieren.

Wenn es sich bei den Dokumenten um Ihre eigenen handelt, vertrauen Sie darauf, dass sie keinen schädlichen Code enthalten und alle an einem sicheren Ort gespeichert sind (dh nicht in einem temporären oder freigegebenen Ordner). Sie können die Einstellungen der einzelnen Office-Programme so ändern, dass diese Dateien immer mit geöffnet werden Makros aktiviert.

Am einfachsten ist es, Ordner mit makrofähigen Präsentationen an sicheren Speicherorten in PowerPoint hinzuzufügen.

Um dies zu tun:

1. Klicken Sie auf FileRegisterkarte, OptionsSchaltfläche, Trust CenterAbschnitt und Trust Center SettingsSchaltfläche.

2. Gehen Sie zum Trusted locationszweiten Abschnitt und klicken Sie auf die Add new location...Schaltfläche.

3. Fügen Sie den Ordnerpfad in das PathFeld ein oder wählen Sie ihn aus und prüfen Sie optional, ob alle Unterordner am hinzugefügten Speicherort ebenfalls als vertrauenswürdig behandelt werden sollen.

4. Klicken Sie OKdreimal, um alle geöffneten Fenster zu bestätigen und zu schließen. Öffnen Sie das Makro-aktivierte Dokument erneut.

Ab diesem Zeitpunkt sollten alle Dokumente, die von einem gerade hinzugefügten Speicherort aus geöffnet wurden, keine Warnung mehr anzeigen und immer mit aktivierten Makros geöffnet werden. Weitere Informationen zu diesem Thema finden Sie in diesem Office.com-Supportdokument .

Fußnoten

¹ _{In den meisten Versionen von Powerpoint die Bedeutung Titelfolie ist nicht so bestimmt erste Folie in der Präsentation , sondern als jede Folie als Titelfolie gestylt . Sie können verschiedene Folientypen sehen, wenn Sie eine neue einfügen. Wenn Sie also keine Folie als Titel festgelegt haben, werden allen Folien Seitenzahlen hinzugefügt. Und umgekehrt: Wenn Sie in der Präsentation viele Titelfolien verwendet haben , um z. B. verschiedene Abschnitte oder Blöcke zu markieren, fehlt auf allen die Nummerierung.}

² _{Alle Namen der GUI-Elemente wurden direkt aus meiner polnischen Ausgabe von PowerPoint 2010 übersetzt. In anderen Versionen oder Sprachausgaben von PowerPoint können sie geringfügig abweichen. Dementsprechend anpassen.}

Stellen Sie zunächst sicher, dass jede Folie eine normale Slidenumber hat. Fügen Sie dann ein Modul hinzu, fügen Sie den folgenden Code ein und drücken Sie F5 (Start).

Dim s As Slide
Dim shp As Shape

For Each s In ActivePresentation.Slides
    s.DisplayMasterShapes = True
    s.HeadersFooters.SlideNumber.Visible = msoTrue

    For Each shp In s.Shapes
        If Left(shp.Name, 12) = "Slide Number" Then
            shp.TextFrame.TextRange.Text = s.SlideNumber & " van " & ActivePresentation.Slides.Count
        End If

    Next
Next

Das Add-In von Bill Dilworth für PowerPoint kann Ihnen helfen, je nachdem, welche Version von PowerPoint Sie verwenden. Dies ist genau der Zweck.

Ich habe eine Webseite gefunden, auf der angegeben ist, dass Sie <#> von x in ein Textfeld in der Master-Folie eingefügt und dann der Folie die "Foliennummer" hinzugefügt haben. Ich ließ es kurz arbeiten, aber als ich es dann bewegte und erneut versuchte, füllte es nicht mehr die vollständige Foliennummer in x. Diese Lösung ist jedoch für die meisten Benutzer möglich.

Hier ist ein etwas anderer Code, der Ihre Fußzeile mit "slide # of ##" aktualisiert. Ich habe mich dafür entschieden, versteckte Folien nicht mitzurechnen. Ich habe diesen Code mit der Maus über eine versteckte Aktionstaste auf Folie 1 ausgeführt.

Dim SlideTotal As Integer
Dim VisibleSlides As Integer
Dim SlideNum As Integer
Dim i As Integer

With ActivePresentation

    SlideTotal = .Slides.Count

    For i = 1 To SlideTotal
        If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
            VisibleSlides = 1 + VisibleSlides
        End If
    Next

    For i = 1 To SlideTotal
        If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
            SlideNum = 1 + SlideNum
            .Slides(i).HeadersFooters.Footer.Visible = msoCTrue
            .Slides(i).HeadersFooters.Footer.Text = "Slide " & SlideNum & " of " & VisibleSlides
        Else
            .Slides(i).HeadersFooters.Footer.Visible = -msoFalse
        End If
    Next

End With