Office: Powerpoint - automatisch aktuellen Pfad anzeigen

Hallo,

ich habe folgendes problem in Powerpoint:

ich will per VBA mir in der Fußzeile automatisch den aktuellen Pfad anzeigen lassen. Ich habe bisher folgendes Makro:

Sub DateinameFusszeile()

With ActivePresentation.Slides.Range.HeadersFooters
.Footer.Text = ActivePresentation.Path & "\" & ActivePresentation.Name
.SlideNumber.Visible = msoFalse

End With

End Sub

So, das muss ich aber nach dem Speichern immer ausführen, damit der Pfad angezeigt wird. Ich hätte es gern so, das es automatisch angepasst wird.
Ist das überhaupt möglich?? Ich hab schon selber geschaut, aber nichts passendes gefunden.

Wer kann mir helfen??

Gruß