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

Carter Devereaux

unread,

Oct 9, 2004, 10:07:03 PM10/9/04

to

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

unread,

Oct 9, 2004, 10:12:23 PM10/9/04

to

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."

"Carter Devereaux" <CarterD...@discussions.microsoft.com> wrote in
message news:D2E19D6C-5F28-4C89...@microsoft.com...

Sonia

unread,

Oct 9, 2004, 10:17:28 PM10/9/04

to

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".
--

Sonia Coleman
Microsoft PowerPoint MVP Team
Autorun Software, Templates and Tutorials

"Carter Devereaux" <CarterD...@discussions.microsoft.com> wrote in message
news:D2E19D6C-5F28-4C89...@microsoft.com...

Suzanne

unread,

Nov 28, 2007, 8:29:02 AM11/28/07

to

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

Michael Koerner

unread,

Nov 28, 2007, 8:53:35 AM11/28/07

to

Here is a place that will tell you how to do it. http://office.microsoft.com/en-us/powerpoint/HA101077161033.aspx

--
Michael Koerner
MS MVP - PowerPoint

"Suzanne" <Suz...@discussions.microsoft.com> wrote in message news:DB8E1EDA-67AB-44C3...@microsoft.com...

Steve Rindsberg

unread,

Nov 28, 2007, 2:12:52 PM11/28/07

to

In article <DB8E1EDA-67AB-44C3...@microsoft.com>, Suzanne wrote:
> 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?

The .Size = 18 line sets the text size to 18 points. Try

.Size = 12

or whatever point size you like.

Try

.NameAscii = "WhateverFontNameYouWant"
.Name = "WhateverFontNameYouWant"

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

Which specific code are you using?

>
> I'm completely new to VBA's, so unfortunately don't have a clue...any help
> would be greatly appreciated.
>
> Many thanks,
> Sue
>
> "Bill Foley" wrote:
>
> > 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."
> >
> > "Carter Devereaux" <CarterD...@discussions.microsoft.com> wrote in
> > message news:D2E19D6C-5F28-4C89...@microsoft.com...
> > >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
> >
> >
> >
>

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Suzanne

unread,

Nov 28, 2007, 8:04:01 PM11/28/07

to

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

Steve Rindsberg

unread,

Nov 29, 2007, 12:40:33 AM11/29/07

to

Okeydoke ... so what does or doesn't happen when you run the code?
Do you get any error messages?

Suzanne

unread,

Nov 29, 2007, 1:46:01 AM11/29/07

to

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!!!

Steve Rindsberg

unread,

Nov 29, 2007, 11:56:29 AM11/29/07

to

In article <3B58F27B-336F-4F1C...@microsoft.com>, Suzanne wrote:
> 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.

Ah, gotcha. I think I see what's going on. See, if you've already run the macro, it
created the text box and formatted it. The next time you run it and every time after
that, it looks for the text box and just changes the text, doesn't alter the formatting.

We could probably rig it so it always deletes and re-creates the text if that'd work out
better for you.