Deckblatt Überschrift auf Folgefolien übernehmen

Moderator: ModerationP

Deckblatt Überschrift auf Folgefolien übernehmen

Beitragvon Chillian » 23. Sep 2015, 09:24

Hallo Zusammen,

wir möchten gerne das in PowerPoint die Überschrift die Standardmäßig im Deckblatt angelegt wird automatisch in neue Folien übernommen wird ohne für jede Präsentation den Master neu pflegen zu müssen.
Ist dies irgendwie realisierbar?

Beispiel: Deckblatt wird erstellt, Überschrift "Gute Präsentation", Neue Folie einfügen, automatisch ist die Überschrift auf der Folie "Gute Präsentation".

Danke euch vielmals im Voraus.

Chillian
Chillian
 

Re: Deckblatt Überschrift auf Folgefolien übernehmen

Beitragvon Gast » 25. Sep 2015, 12:45

Hat keiner einer Idee wie das funktionieren könnte?

Danke und VG
Gast
 

Re: Deckblatt Überschrift auf Folgefolien übernehmen

Beitragvon Gerrax » 14. Mär 2017, 17:57

Dafür ist das PresentationNewSlide-Ereignis zuständig.

Hi Chillian,
starte den Visual Basic Editor (Alt+F11) und füge als erstes ein Klasssenmodul ein. Dahinein kommt folgender Code:
Code: Alles auswählen
Public WithEvents App As Application

Private Sub App_PresentationNewSlide(ByVal Sld As Slide)
If Windows(1).Selection.SlideRange.Layout = ppLayoutBlank Then
Exit Sub    'auf Leerfolie nichts einfügen
Else
Windows(1).Selection.SlideRange.Shapes.Title.TextFrame.TextRange.Text = _
ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Text
End If
End Sub

Füge 2. ein normales Modul ein. Da kommt folgender Code rein:

Dim X As New Klasse1
Sub InitializeApp()
Set X.App = Application
End Sub

Dieses Initialisierungsmakro legts du dir am besten in die Symbolleiste für den Schnellzugriff (über Anpassen, weitere Befehle), damit es jederzeit verfügbar ist. Es muss pro Dateiöffnung einmal ausgeführt werden, damit werden die Ereignisse des Application-Objekts „scharf“ geschaltet.
Speichere die Datei als PowerPoint-Vorlage mit Makros (*potm). Führe für jede neue Datei auf Basis der Vorlage das Initialisierungsmakro einmal aus. Der gewählte Titel auf der Startfolie wird nun automatisch in jede neue Folie (außer Leerfolien) übernommen.

Viel Erfolg!
Gerrax
Gerrax
 


Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast