hilfdirselbst.ch
Facebook Twitter gamper-media
Letoh
Beiträge: 19
18. Jul 2013, 09:33
Beitrag #1 von 8
Bewertung:
(3190 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

PowerpPoint für Seitenlaufplan nutzen


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
E.Letoh Top
 
X
Hallenstein
Beiträge: 138
18. Jul 2013, 10:20
Beitrag #2 von 8
Beitrag ID: #515223
Bewertung:
(3171 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

PowerpPoint für Seitenlaufplan nutzen


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.
als Antwort auf: [#515214] Top
 
Lars
Beiträge: 280
18. Jul 2013, 12:53
Beitrag #3 von 8
Beitrag ID: #515238
Bewertung:
(3144 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

PowerpPoint für Seitenlaufplan nutzen


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

--
Die moderne Druckvorstufe als Fernsehserie - CSI: PDF.
als Antwort auf: [#515223] Top
 
Hallenstein
Beiträge: 138
18. Jul 2013, 13:04
Beitrag #4 von 8
Beitrag ID: #515240
Bewertung:
(3133 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

PowerpPoint für Seitenlaufplan nutzen


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.
als Antwort auf: [#515238] Top
 
Letoh
Beiträge: 19
18. Jul 2013, 16:34
Beitrag #5 von 8
Beitrag ID: #515258
Bewertung:
(3093 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

PowerpPoint für Seitenlaufplan nutzen


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
E.Letoh
als Antwort auf: [#515238] Top
 
Hallenstein
Beiträge: 138
25. Jul 2013, 08:55
Beitrag #6 von 8
Beitrag ID: #515480
Bewertung:
(2982 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

PowerpPoint für Seitenlaufplan nutzen


Hallo Eduard,

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

Passt das?


LG,
Hallenstein.
als Antwort auf: [#515258] Top
 
Hallenstein
Beiträge: 138
25. Jul 2013, 09:42
Beitrag #7 von 8
Beitrag ID: #515484
Bewertung:
(2975 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

PowerpPoint für Seitenlaufplan nutzen


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.
als Antwort auf: [#515480] Top
 
Letoh
Beiträge: 19
26. Jul 2013, 08:12
Beitrag #8 von 8
Beitrag ID: #515524
Bewertung:
(2919 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

PowerpPoint für Seitenlaufplan nutzen


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
E.Letoh
als Antwort auf: [#515484] Top
 
X