How do I add the current path and file name to every slide?

[Carter Devereaux]

I am not a programmer, but a novice interested in how I can add the
presentation's current path and file name to every slide. Does anyone know
how I can do that?

--Carter

 

[Bill Foley]

There is code on this page to do just what you want:

http://www.rdpslides.com/pptfaq/FAQ00407.htm

--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/
"Success, something you measure when you are through succeeding."

 

[Sonia]

Go to View > Master > Slide Master. You may see three small placeholders at the
bottom. If not, go to Format > Master Layout and check Footer. Now you can
enter the file path in place of <footer> in the placeholder. You may want to
delete the Date and Slide Number placeholders to provide more room. Now return
to View > Normal.

The above will cause the path to show at the bottom of all slides. If you don't
see the path, go to View > Header and Footer and be sure that Footer is checked.
Click "Apply to All".

 

[Suzanne]

Hi,

Thanks to this very old post I found from Bill Foley I have set up a VBA to
add the file name to ppt (used second option). The VBA worked well, except I
can't change the font. I have tried changing the font size and even tried a
different type of text:

With .TextFrame.TextRange.Font
.NameAscii = "Arial"
.Size = 18

Any idea's how to set the formating to a smaller font?

Also, is it possible to set the VBA code to include file name on all pages
excluding the title page?

I'm completely new to VBA's, so unfortunately don't have a clue...any help
would be greatly appreciated.

Many thanks,
Sue

 

[Suzanne]

Thanks for your help, I thought it should be as simple as changing the size
but I'm still struggling. I have tried using the two lines you suggested but
got no further.

The code I am using is:

Sub AddTextBoxDateFilename()
' Adds a text box with date and filename to each slide
' You must first save the presentation at least once before using this

Dim oSl As Slide
Dim oSh As Shape

On Error GoTo ErrorHandler

For Each oSl In ActivePresentation.Slides
' do we already have a filename/date text box? If do, use it:
On Error Resume Next
Set oSh = oSl.Shapes("FilenameAndDate")
On Error GoTo ErrorHandler

If oSh Is Nothing Then ' no text box there already, create one

' change the position and formatting to suit your needs:
Set oSh = oSl.Shapes.AddTextbox(msoTextOrientationHorizontal, 0,
510, 720, 28.875)

With oSh

.Name = "FilenameAndDate"

.TextFrame.WordWrap = msoFalse
With .TextFrame.TextRange.ParagraphFormat
.LineRuleWithin = msoTrue
.SpaceWithin = 1
.LineRuleBefore = msoTrue
.SpaceBefore = 0.5
.LineRuleAfter = msoTrue
.SpaceAfter = 0
End With

With .TextFrame.TextRange.Font
.NameAscii = "Arial"
.Size = 8
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End With ' shape

End If ' osh is nothing

' now we know there's a shape by the correct name so
Set oSh = oSl.Shapes("FilenameAndDate")
With oSh.TextFrame.TextRange
.Text = ActivePresentation.FullName & vbTab & Format(Now, "mmmm
dd, yyyy")
End With

Set oSh = Nothing


Next ' slide


NormalExit:
Exit Sub

ErrorHandler:
MsgBox ("There was a problem:" _
& vbCrLf _
& Err.Description)
Resume NormalExit

End Sub

 

[Suzanne]

no error messages, just very large font.

wohoo, it's working! I've been focussing on the code, when all I needed to
do was change the font size on the ppt before setting / running the
macro...crazy stuff.

Thanks!!!