Hallo Gemeinde,

hab da ein Problem und vlt. könnt ihr mal wieder helfen.

Hab eine PP-Präsentation (2003), dort soll unten der aktuelle Dateiname ausgegeben werden. Dieses funktioniert ja mit dem solch Makro:

Sub Fusszeile()
With ActivePresentation.Slides.Range.HeadersFooters
.Footer.Text = ActivePresentation.Name
.SlideNumber.Visible = msoFalse
End With
End Sub

Jetzt soll dies aber immer beim Start der PP ausgeführt werden. Hab was von Sub Autoopen() im Netz gelesen, aber irjendwie bekomm ick das nicht hin.

Hatte das nur so angepasst:

Sub Auto_Open()
With ActivePresentation.Slides.Range.HeadersFooters
.Footer.Text = ActivePresentation.Name
.SlideNumber.Visible = msoFalse
End With
End Sub

Aber das war augenscheinlich falsch.

Könnt ihr mir da bitte helfen ???

LG,
IT304