Hallo,

Powerpoint soll für eine Verlagsprodukt zum Aufbau eines Seitenlaufplanes genutzt werden. Dabei stellt jede Folie eine Doppelseite dar. Über die Master werdend die verschiedenen Doppelseiten-Varianten erstellt. Hier nun meine Frage:

Ist es möglich über ein Makro Automatischen Seitenzahlen zu erzeugen? Links auf der ersten Folie soll die Zahl 2 und rechts dann die Zahl 3 stehen, auf der nächsten Folie soll links dann die 4 und rechts die 5 stehen und so weiter...

Wichtig wäre noch: die so erzeugten Seitenzahlen sollen sich automatisch ändern wenn einzelne Folien umsortiert werden oder neu Folien an beliebiger Stelle eingfügt werden.

Besten Dank für Eure Anregungen

Hallo,

ja, das sollte im Prinzip möglich sein. Es lässt sich per Makro die Gesamtseitenzahl und die Seitenzahl der aktuellen Seite ermitteln.

Gesamtseitenzahl:

Code

ActivePresentation.Slides.Count 

Aktuelle Seite:

Code

ActivePresentation.Windows(1).View.Slide.SlideNumber 

hab ich auf die Schnelle gefunden.

Jetzt musst du halt nur noch im Makro beachten das deine Seitenzahl doppelt so groß ist und du auf Folie 5 eigentlich schon auf seite 11/12 bist...

Hilft das?

SG,
Hallenstein.

Hallo Hallenstein,

nur zur Klärung ;)

Antwort auf [ Hallenstein ]

Aktuelle Seite:

Code

ActivePresentation.Windows(1).View.Slide.SlideNumber 

hab ich auf die Schnelle gefunden.

Jetzt musst du halt nur noch im Makro beachten das deine Seitenzahl doppelt so groß ist und du auf Folie 5 eigentlich schon auf seite 11/12 bist...

ActivePresentation.Windows(1).View.Slide.SlideNumber liefert die Seitenzahl beginnend ab 1, d.h. Folie 5 enthält Seite 10/11 und nicht 11/12 - wenn man wie von Letoh gewünscht die Seitenzahl bei 2 anfängt zu zählen.

Grüße,
Lars

Hallo Lars,

den Absatz mit dem Anfang bei Seite 2 hatte ich komplett überlesen, stimmt.

Naja, aber das macht es ja auch nicht gerade schwieriger, sondern eigentlich noch einfacher aus meiner Sicht.

SG,
Hallenstein.

Hallo Lars,

zunächst ganz herzlichen Dank für Eure schnelle Hilfe. Jetzt ist es nun leider so, daß ich mit PPT und Macros keine Erfahrung habe. Ich habe zwar die Entwicklerumgebung gefunden verstehe aber nicht wie ich hier den von Euch beschriebenen Code integriere so daß das Ergebnis dann auch auf den Folien erscheit (linke Seite der Folie gerade Zahl, rechte Seite der Folie ungerade Zahl. Beginnend mit der Zahl 2).

Ist es möglich, dass Ihr mir genauer beschreibt wo und wie ich was mache oder mir eine PPT mit den Macro liefert. Ich würde in jedem Fall für Euren Aufand aufkommen.

Herzlichen Dank
Eduard

Hallo Eduard,

ja das geht schon. Ich werde am Dienstag (eher wird es nicht) mal was zusammenbasteln und dir zusenden.

Passt das?


LG,
Hallenstein.

Hallo,

hat mir doch gleich in den Fingern gejuckt. Folgendes Script erzeugt auf jeder Folie in der Fußzeile einen Text Seite x/y wobei er bei Seite 2 beginnt.

Code

Sub Seitenplan() 
    Dim AnzSeiten As Long, Counter As Integer 
    AnzSeiten = ActivePresentation.Slides.Count 
    With ActivePresentation.Slides 
    For Counter = 1 To AnzSeiten 
    '.Range(Counter).HeadersFooters.Footer.Visible = msoCTrue 
    .Range(Counter).HeadersFooters.Footer.Text = "Seiten " & Counter * 2 & " / " & (Counter * 2) + 1 
    Next Counter 
    End With 
    End Sub 

Das nehmen, den VBA-Editor öffnen, und dort in ein neues Modul reinkopieren.

Erweiterungsmöglichkeiten:
automatische Aktualisierung, wenn Seiten verschoben werden (dazu muss momentan das Makro einfach noch einmal ausgeführt werden)
Trennung in 2 Felder (es ist ein Textfeld aktuell)

Hier eine Beispieldatei: https://www.dropbox.com/...3kqu/Seitenplan.pptm

Hilft das?

LG,
Hallenstein.

Hallo Hallenstein,

super, dass ist genau das was ich gebraucht habe. Damit kann ich gut arbeiten. Die Krönung wäre zwar der Automatismus und die Seitenzahlen rechts und links. Wenn ich aber anstelle des slash im code genug Leerzeichen einsetze erscheinen die Seitenzahlen rechts und links.

Ganz herzlichen Dank. Wenn ich mich erkenntlich zeigen kann einfach melden.

Eduard