file name in footer

S

Susanitamn

how do I create a macro to insert the file name on the last page footer of a
powerpoint presentation? Thx!
 
J

John Wilson

This is "aircode" but I guess it would it:

Sub footerme()
Dim n As Integer
n = ActivePresentation.Slides.Count
ActivePresentation.Slides(n).HeadersFooters.Footer _
..Text = ActivePresentation.Name
End Sub
 
S

Susanitamn

thank you...it is working except for one thing...how do I get it to
automatically update if filename is changed and be automatically put on last
page of the presentation? Thanks again for all your help!
 
Top