Add a filename to a footer

[Jennifer]

Is it possible to add a full path filename in a footer in
powerpoint 2000 (like u can with word & excel)?

Any help wud be appreciated.

 

[B]

True, this is not a feature offered by Microsoft at this time. If you think
it is something that should be included on the next version, follow this
link and request it.
http://register.microsoft.com/mswish/suggestion.asp

In the meantime, you can use this macro to do the function:
=======================
Sub FootPath()
Dim SldNum As Integer
For SldNum = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(SldNum).HeadersFooters
.Footer.Text = ActivePresentation.FullName
.Footer.Visible = msoTrue
End With
Next SldNum
End Sub
========================

B

--
===============
Please spend a few minutes checking out www.pptfaq.com This link will
answer most of our questions, before you think to ask them.

Change org to com to defuse anti-spam, ant-virus, anti-nuisance
misdirection.

 

[Thomas]

Jennifer and I obviously have the same issue, thanks
again B. Two additional questions:

1) Is there a different "property" that only includes the
filename, and not the full path.

2) Are there some sort of .onsave and/or .onprint sub
types that will allow this macro to be run whenever the
file is saved/printed?

Thanks in advance.

-Thomas

 

[Thomas]

OK, from www.pptfaq.com I figured out that I can
replace .filename with .name and get only the filename,
but still need some help with the rest...

-Thomas

 

[Jennifer]

Thankx very much for this macro. Is there a line that I
can add in order to instruct alignment, i.e. left, centre
or right?

Many thankx for your help & I will add this to the wish
list.

Cheers, Jennifer

 

[B]

Hi Jennifer,

You don't need to use VBA to adjust the alignment, just alter the master
slide to the correct fonts and alignment and colors. The macro just changes
the text that is in the footer.

B