file name in footer

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

how do I create a macro to insert the file name on the last page footer of a
powerpoint presentation? Thx!
 
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
 
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!
 
Back
Top