Dateiname autom. anzeigen in PowerPoint97

[Boneshakerbaby]

Hallo,

Einer unserer user möchte bei sich in PowerPoint 97 den Dateinamen automatisch in der Fußzeile anzeigen lassen.

Folgendes habe ich bis jetzt mit dem VBA-Makro gemacht:

If ActivePresentation.HasTitleMaster Then

With ActivePresentation.TitleMaster.HeadersFooters

With .Footer

.Text = ActivePresentation.Name

.Visible = msoTrue

End With

End With

End If

With ActivePresentation.SlideMaster.HeadersFooters

With .Footer

.Text = ActivePresentation.Name

.Visible = msoTrue

End With

End With

Allerdings soll der Dateiname links und kleiner stehen statt in der mitte.

Wer kann mir (heute noch) helfen? :beagolisc