---

Hallo Leute,
ich suche die Möglichkeit, in einer Powerpoint die Seitenzahlen darstellen zu lassen.
Und zwar so: "aktuelle Folie" von "Gesamtzahl der Folien".
Das ganze soll auch aktuell funktionieren, wenn Folien ausgeblendet werden, d.h. die Gesamtzahl wird kleiner!
Ich habe im Folienmaster alles mögliche probiert, inkl. die MS Word-"Syntax" nach PP kopiert  .

Danke für Hinweise!

tschö,

------------------
Johannes Anacker
Sales Support
SolidLine AG
SolidLine AG - Onlineshop

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wenn Du in einer leeren Vorlge in die Masterfolie wechselst, findest Du unten rechts in der Fußzeile, bzw. Seitenzahlenbereich: <Nr.>
Das kannst Du einfach in Deine Masterfolie kopieren.

edit: ups, nicht richtig durchgelesen....

------------------
Grüße Karin

[Diese Nachricht wurde von Cadzia am 01. Mrz. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Joe,

ich mach ds mit einem makro, wenn ich mich recht erinnere ist das "von XYZ Folien" das Problem in Powerpoint.

Ich hab ein kleines Makro, was in den Fußberecih den Text "Folie A von B" einträgt:

Code:

---

Sub SeitenzahlenAktualisieren()

    Dim AnzSeiten As Long
    Dim Counter As Integer
   
    AnzSeiten = ActivePresentation.Slides.Count
    With ActivePresentation.Slides
        For Counter = 1 To AnzSeiten
            .Range(Counter).HeadersFooters.Footer.Text = _
            "Folie " & Counter & " von " & AnzSeiten
        Next Counter
    End With
   
End Sub

---

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Stefan,
ich habe das Makro in Powerpoint (2003) erstellt, allerdings funzt es nicht. Weder in Normal- noch in Masteransicht.
Gibt es da etwas, was ein begnadeter Coder wie ich  übersehen hat?

Danke!

------------------
Johannes Anacker
Sales Support
SolidLine AG
SolidLine AG - Onlineshop

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

fuer-joe.zip

Hi Joe,

schwer zu sagen, vielleicht hast du ja den Makro-Ausführen-Knopf übersehen 

Ich hab dir mal eine PPT angehangen wo das Makro drinsteckt, ich kann es mit PP2003 nicht probieren. Also aufrufen, Seiten hinzu oder wegnehmen und dann Extras/Makros/Ausführen - SeitenzahlenAktualisieren

Ist keine Automatismus oder so 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Stefan,
kommt dem schon recht nahe, allerdings reagiert es auch nicht auf ausgeblendete Folien :-(
Das Makro findet er irgendwie auch nicht immer. Hab leider keine Zeit für weitere Tests, werd mal Bill schreiben

Danke trotzdem und tschö,

------------------
Johannes Anacker
Sales Support
SolidLine AG
SolidLine AG - Onlineshop

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Johannes 
Ich hab sowas ähnlich geschafft was du suchst.
Ich kann dir sage, wie du bei einer PP Präsentation Seitenzahlen einfügst.
Sobald du eine neue Folie hinzufügst oder eine Folie rauslöscht....passt sich die Seitenzahl automatisch und entsprechend an.
Es wird allerdings nur die aktuelle Seitenzahl angezeit, nicht folie....von....
Ich weiß ja nicht, ob dir das weiter hilft oder nicht.
Oder obs schon zu spät ist.
Jedenfalls brauchst du nur oben in der Menüleiste von MS PP auf *EINFÜGEN* und dann auf *FOLIENNUMMER* zu klicken.
dann kommt ein fenster.... da machst du dann alle Häkchen weg.
Im Fähnchen *Folie* und *Notizblätter und Handzettel*
Sicher is sicher.
Dann setzt du nur noch ein Häkchen bei *Foliennummer* und evtl. bei *Auf Titelseite nicht anzeigen*.
Danach rechts auf *Für alle Folien übernehmen* und feddisch.

gr33zz
David

------------------
alles hat ein ende, nur die wurst hat zwei

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo David,
danke für die Information. Allerdings wäre die Angabe Nr. von Anzahl noch etwas schöner. Habe aber meine Kollegen und mich daran gewöhnt, daß es auch ohne geht. Der Schock für den Betrachter, zu Beginn der Präsentation "Folie 1 von 150" zu sehen, wäre vielleicht auch zu groß 

Danke nochmal!
tschö,

------------------
Johannes Anacker
Sales Support
SolidLine AG
SolidLine AG - Onlineshop

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich glaub, dass ich diesen Shock auch nicht verkraften würde.
was macht ihr denn für Präsentationen ???
150 Folien .... aber ok.

gr33zz
David

------------------
alles hat ein ende, nur die wurst hat zwei

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Sub nursichtbare()
    Dim AnzSeiten As Long
    Dim Counter, Xnr, AllSeiten As Integer

    'feststellung wieviele sichtbare Blätter       
    AnzSeiten = ActivePresentation.Slides.Count
    With ActivePresentation.Slides
        X = 0
            For Counter = 1 To AnzSeiten
            If ActivePresentation.Slides.Range(Array(Counter)).SlideShowTransition.Hidden = msoFalse Then
            X = X + 1
            End If
        Next Counter
    End With
   
    AllSeiten = X
   
'eintragen
        With ActivePresentation.Slides
        X = 0
            For Counter = 1 To AnzSeiten
            If ActivePresentation.Slides.Range(Array(Counter)).SlideShowTransition.Hidden = msoFalse Then
            X = X + 1
            End If
            .Range(Counter).HeadersFooters.Footer.Text = _
            "Folie " & X & " von " & AllSeiten
        Next Counter
    End With
   
End Sub

---

sollte gehen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
was muss ich tun, damit dieses Makro in jeder beliebiegen Powerpoint-Präs. läuft, wenn ich dies kopierer im VBA kommt Fehler? Was genau gibt es zu beachten, habe wenig Ahnung in VBA; bräuchte dringend Info, wie ich Seite x von Seiten y anzeigen lassen kann, habe eine PPT von 140 Folien.
Gruß
Thomas

Zitat:

---

Original erstellt von Thomas Harmening:

Code:

---

Sub nursichtbare()
    Dim AnzSeiten As Long
    Dim Counter, Xnr, AllSeiten As Integer

    'feststellung wieviele sichtbare Blätter       
    AnzSeiten = ActivePresentation.Slides.Count
    With ActivePresentation.Slides
         X = 0
            For Counter = 1 To AnzSeiten
            If ActivePresentation.Slides.Range(Array(Counter)).SlideShowTransition.Hidden = msoFalse Then
            X = X + 1
             End If
        Next Counter
    End With
   
    AllSeiten = X
   
'eintragen
        With ActivePresentation.Slides
         X = 0
            For Counter = 1 To AnzSeiten
            If ActivePresentation.Slides.Range(Array(Counter)).SlideShowTransition.Hidden = msoFalse Then
            X = X + 1
             End If
            .Range(Counter).HeadersFooters.Footer.Text = _
            "Folie " & X & " von " & AllSeiten
        Next Counter
    End With
   
End Sub

---

sollte gehen

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi und herzlich willkommen auf cad.de!

Mit welcher Office-Version arbeitest du?

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

MS Powerpoint 2007 !

Zitat:

---

Original erstellt von tunnelbauer:
Hi und herzlich willkommen auf cad.de!

Mit welcher Office-Version arbeitest du?

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also:

ALT+F11
Einfügen > Modul (aber nur von Sub... bis End Sub)

Dann sollte es auch schon unter Extras > Makros > "Abspielen" drin sein.

Der Footer muss allerdings eingeschaltet sein...

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...helfe mir noch kurz über die STraße, wo schaltet ich den "Footer" ein ?
Danke
Gruß
Tomas

Der Footer muss allerdings eingeschaltet sein...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ansicht > Kopf- und Fußzeilen

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,
hat alles bestens funktioniert - DANKE
Gruß
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

ich brauche auch dringend für mein Chef diese Counter und er möchte sogar encounter auch haben damit er weiß wie viel noch seiten hat (während seine Präsentation)

Ich habe PPT version 2003

Vielen Dank im Voraus für Deine Hilfe

Orkun

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi und herzlich willkommen auf cad.de!

Alles was du brauchst steht auf dieser Seite - bitte durchlesen, Anleitung befolgen und fertig - wenn wir für dieses Problem noch mehr helfen müssten, dann müssten wir bei dir am Arbeitsplatz vorbeischauen; das wird so aber nicht gehen.

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Thomas,

vielen Dank für Deine Antwort. Das Problem ist erst die VBA fonksioniert bei mir nicht zweitens is das möglich diese counter als encounter zu programmiern? Das heiß ich möchte gerne sehen wie viel Seiten das ich nocht übrig habe.

Vielen Dank im Voraus

Orkun

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
erstens: bitte noch mal in Ruhe lesen:

Zitat:

---

Original erstellt von tunnelbauer:

Alles was du brauchst steht auf dieser Seite - bitte durchlesen, Anleitung befolgen und fertig - wenn wir für dieses Problem noch mehr helfen müssten, dann müssten wir bei dir am Arbeitsplatz vorbeischauen; das wird so aber nicht gehen.

---

Du kannst doch den Code ganz einfach anpassen, z.B. statt:
"Folie " & X & " von " & AllSeiten & " Seiten"
schreibst Du:
"Es verbleiben " & AllSeiten - X & " Seiten"

Wenn es immer noch nicht funktioniert, hast Du nicht aufmerksam gelesen.

Viel Erfolg.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Herzlichen Dank

Lg

Orkun

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Auch wenn der Beitrag auf den ich antworte schon älter als ein Jahr ist, vielleicht kann mir doch geholfen werden:
ich habe das Makro, das "Seite x von y" in der Fußzeile meiner ppt-Präsentation angeben soll, eingefügt und erhalte folgende Fehlermeldung, wenn ich es aktiviere:
in der ersten Zeile der Meldung steht: Laufzeitfehler '-2147188160':
und in der zweiten Zeile: HeaderFooter (unknown member) : Invalid request

Ich habe vor der Aktivierung des Makros über EINFÜGEN --> KOPF- UND FUSSZEILE unter FOLIE das Feld DATUM UND UHRZEIT aktiviert (dort FEST angeklickt und meinen Namen eingegeben, der links unten auf der Folie erscheinen soll) und auch die weiteren Häkchen gesetzt (bei FOLIENNUMMER, FUSSZEILE und bei AUF TITELFOLIE NICHT ANZEIGEN.

Tja, und jetzt weiß ich nicht mehr weiter.
Die Folien sollen so aussehen, dass auf der allerersten keine Fußzeile steht und beginnend mit der eigentlichen Präsentation unten links mein Name und unten rechts der Titel der Präsentation zusammen mit Seite x von y.

Vorab schon mal vielen Dank für eine weiterhelfende Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

PPT-Makro-Folie.jpg

Hallo PPT-User ...

Nochmal zum Verständnis (Ich habe alles mit Powerpoint 2003 ausprobiert und es funktioniert):

> Foliennummer musst Du nicht anhaken ... Das ist für das Automatische Eintragen NUR der
  Foliennummer

> Du hast WIRKLICH NUR DEN BEREICH von SUB bis ENDSUB reinkopiert ... ?
  (Klingt nämlich so, als hättest zu viel oder zu wenig reinkopiert)

Ich hab Dir noch mal ein Bild angehängt, wie Dein Makro aussehen sollte (und im Bildhinter-
grund siehst Du das Ergebnis auf Folie 1 ...)

Roland 

------------------
Wer Wuchstaben verbechselt oder Dreckfuhler produziert kommt auch mit Tupp-Ex nicht weiter ...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo, auch wenn der Beitrag schon etwas älter ist...

Ich habe das Makro eingebaut. Aber der Eintrag verweist auf die Fußzeile (.footer.text). Da ich dort schon andere Informationen stehen habe, hätte ich die Seitenzahlen gerne im Bereich "Foliennummer". Wie lauten die korrekten englischen Bezeichnungen für diesen Bereich? Wie muss ich die Zeile

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

anpassen, damit die Seitenzahl nicht im "footer" angezeigt werden?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hi, hab auch mal gegoogelt, weil es bei mir auch nicht geklappt hat. Hier gibt's eine genaue Anleitung. Dann müsste es auch klappen:

http://www.incas-training.de/blog/2012/12/seitenzahlen-x-von-y-fur-powerpoint-2010/

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von marhold:
Hallo, auch wenn der Beitrag schon etwas älter ist...

Ich habe das Makro eingebaut. Aber der Eintrag verweist auf die Fußzeile (.footer.text). Da ich dort schon andere Informationen stehen habe, hätte ich die Seitenzahlen gerne im Bereich "Foliennummer". Wie lauten die korrekten englischen Bezeichnungen für diesen Bereich? Wie muss ich die Zeile

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

anpassen, damit die Seitenzahl nicht im "footer" angezeigt werden?

---

Die Frage ist gut. Ich habe mich gerade genau damit beschäftigt. Du kannst es zum Beispiel ins Datumsfeld schreiben mit dem Befehl:
.Range(Counter).HeadersFooters.DateAndTime.Text = X & " / " & AllSeiten
Es gibt auch eine Variable:
.Range(Counter).HeadersFooters.Slidenumber.Text, aber auf die kann man wegen [ich hab keine Ahnung wieso Microsoft das nicht erlaubt] nicht darauf zugreifen. Wenn mans versucht, bekommt man nen Laufzeitfehler. Übrigens auch, wenn man versucht in Footer zu schreiben, die über die Folien deaktiviert wurden.
Ich habe also noch eine Bedingung eingefügt:
If .Range(Counter).HeadersFooters.Footer.Visible = msoTrue Then
.Range(Counter).HeadersFooters.DateAndTime.Text = X & " / " & AllSeiten
End If

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP