file name in footer

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Susanitamn - 12 Jul 2007 19:40 GMT

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

Reply to this Message

John Wilson - 12 Jul 2007 20:06 GMT

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

Signature

Amazing PPT Hints, Tips and Tutorials-http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk

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

Reply to this Message

Susanitamn - 18 Jul 2007 20:30 GMT

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!

> This is "aircode" but I guess it would it:
>
[quoted text clipped - 7 lines]
> > how do I create a macro to insert the file name on the last page footer of a
> > powerpoint presentation? Thx!

Reply to this Message