PowerPoint 2007 - VBA Fußzeile für alle Folien festlegen

11/05/2010 - 12:31 von Claudia | Report spam
Liebe PowerPoint-Gurus,

ich habe hier eine PowerPoint-2007-Vorlage, bei der beim Start ein
Dialog erscheint, bei dem der Anwender das Logo einer Abteilung
raussucht.

Das Logo und die Bezeichnung der Abteilung werden dann automatisch im
Folienmaster eingefügt.
Das Logo ist o.k., allerdings habe ich ein Problem mit der Fußzeile.
Diese wird richtig beschriftet, die Fußzeile wird auch angehakt,
allerdings wird es nicht für alle Folien übernommen, sondern im
Folienmaster nur für ein Layout.

VBA-Schnipsel:
dim abtname
abtname "abc"
ActiveWindow.ViewType = ppViewSlideMaster
With ActivePresentation.SlideMaster.HeadersFooters
With .Footer
.Text = abtname
.Visible = msoTrue
End With
.SlideNumber.Visible = msoTrue
.DateAndTime.Visible = msoFalse
.DisplayOnTitleSlide = msoFalse
End With
ActiveWindow.ViewType = ppViewSlide

Wo hab ich da was übersehen?

Danke für Eure Hilfe
Grüße
Claudia
 

Lesen sie die antworten

#1 0liver J.
12/05/2010 - 12:36 | Warnen spam
Hallo Claudia,

da ich in VBA keine Funktion "für alle Übernehmen" gefunden habe,
muss der Text wohl auch die Layouts geschrieben werden.

Sub UpdateFußzeile()
Dim abtname
Dim MyDesign As Design
Dim MyLayout As CustomLayout

abtname = "Mein-Abteilungsname"

'Fußzeile in alle Master
For Each MyDesign In ActivePresentation.Designs

With MyDesign.SlideMaster.HeadersFooters
With .Footer
.Text = abtname
.Visible = msoTrue
End With

.SlideNumber.Visible = msoTrue
.DateAndTime.Visible = msoFalse
.DisplayOnTitleSlide = msoFalse
End With

'Auch in alle Layouts schreiben
For Each MyLayout In MyDesign.SlideMaster.CustomLayouts

'Falls es in einem Layout keine Fußzeile gibt
On Error Resume Next
With MyLayout.HeadersFooters
With .Footer
.Text = abtname
.Visible = msoTrue
End With

.SlideNumber.Visible = msoTrue
.DateAndTime.Visible = msoFalse
.DisplayOnTitleSlide = msoFalse
End With

Next
Next

Gruß
Oliver


"Claudia" wrote:

Liebe PowerPoint-Gurus,

ich habe hier eine PowerPoint-2007-Vorlage, bei der beim Start ein
Dialog erscheint, bei dem der Anwender das Logo einer Abteilung
raussucht.

Das Logo und die Bezeichnung der Abteilung werden dann automatisch im
Folienmaster eingefügt.
Das Logo ist o.k., allerdings habe ich ein Problem mit der Fußzeile.
Diese wird richtig beschriftet, die Fußzeile wird auch angehakt,
allerdings wird es nicht für alle Folien übernommen, sondern im
Folienmaster nur für ein Layout.

VBA-Schnipsel:
dim abtname
abtname "abc"
ActiveWindow.ViewType = ppViewSlideMaster
With ActivePresentation.SlideMaster.HeadersFooters
With .Footer
.Text = abtname
.Visible = msoTrue
End With
.SlideNumber.Visible = msoTrue
.DateAndTime.Visible = msoFalse
.DisplayOnTitleSlide = msoFalse
End With
ActiveWindow.ViewType = ppViewSlide

Wo hab ich da was übersehen?

Danke für Eure Hilfe
Grüße
Claudia
.

Ähnliche fragen