Filename footers of a Handout in PP Version 2002 V10

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

Guest

Hi,

RE: PP Version 2002 V10

Is it possible to put the filename in the footer of a Handout print out
(I use to slides to a piece of paper)?

Thanks
 
View > Header and Footer... > Notes and Handouts > checkmark the footer and
insert your filename in the space provided > Apply to All.

--
<>Please post all follow-up questions/replies to the newsgroup<>
<><>Email unless specifically requested will not be opened<><>
<><><>Do Provide The Version Of PowerPoint You Are Using<><><>
<><><>Do Not Post Attachments In This Newsgroup<><><>
Michael Koerner [MS PPT MVP]


Hi,

RE: PP Version 2002 V10

Is it possible to put the filename in the footer of a Handout print out
(I use to slides to a piece of paper)?

Thanks
 
Michael Koerner said:
View > Header and Footer... > Notes and Handouts > checkmark the footer and
insert your filename in the space provided > Apply to All.
Click to expand...

Thanks.

Is there a way to do it automatically as in word?

Thanks again
 
Someone had a macro that did just that, but I can't put my fingers on it right
now. Hopefully someone will pop in with the name.

--
<>Please post all follow-up questions/replies to the newsgroup<>
<><>Email unless specifically requested will not be opened<><>
<><><>Do Provide The Version Of PowerPoint You Are Using<><><>
<><><>Do Not Post Attachments In This Newsgroup<><><>
Michael Koerner [MS PPT MVP]


Michael Koerner said:
View > Header and Footer... > Notes and Handouts > checkmark the footer and
insert your filename in the space provided > Apply to All.
Click to expand...

Thanks.

Is there a way to do it automatically as in word?

Thanks again
 
Ah, thanks. Missed that in the question.

I bet that code could be modified for handouts and notes pages, though.
 
Yeah, but not by me (LOL)




Ah, thanks. Missed that in the question.

I bet that code could be modified for handouts and notes pages, though.
 
Echo S said:
Ah, thanks. Missed that in the question.

I bet that code could be modified for handouts and notes pages, though.
Click to expand...


Thanks everyone. What great support.

I have just added the code to my slide templet and as you say, it puts
the path and filename in the footer of the slide and not in the footer
of the printed handout.

I have modified the code to remove the path, so only the file name is
displayed (which is good enough for my purpose).

This is a good workaround but if it could be modified to put the footer
in the handout only I would be most appreciative.

This leaves me with the following questions;

I have gone into VIEW | HEADER AND FOOTER and have tried turning the
footer off in the SCREEN TAB (un-ticking the checkbox) and leaving the
footer enabled in the HANDOUT TAB.

But the footer text box in the HANDOUT TAB is blank whereas the footer
text box in the SCREEN TAB has the filename.

Obviously the MACRO is adding the filename to the SCREEN footer text
box, as the code is meant to do.

Q. How can I modify the code so the MACRO adds the filename to the
HANDOUT footer text box?

Q. Is there a library of the macro functions available on the net?


Q. Also, how can I change the font size of the footer?

Q. I saved the macro in the templet *.pot file but it appear to only be
accessible in the pot file. I have tried saving it to the 'all open
documents' option but that doesn't seem to help.

Thanks for the help.
 
This is a good workaround but if it could be modified to put the footer
in the handout only I would be most appreciative.
Click to expand...

Here'tis: I've commented out the stuff that changes slides and slide masters,
added a bit to change the Notes master:

Sub UpdatePath()

' Macro to add the path and file name to each slide's footer.
Dim PathAndName As String
Dim FeedBack As Integer

' Place a message box warning prior to replacing footers.
FeedBack = MsgBox( _
"This Macro replaces any existing text that appears " & _
"within your current footers " & Chr(13) & _
"with the presentation name and its path. " & _
"Do you want to continue?", vbQuestion + vbYesNo, _
"Warning!")

' If no is selected in the dialog box, quit the macro.
If FeedBack = vbNo Then
End
End If


' Gets the path and file name and converts the string to lowercase.
'PathAndName = LCase(ActivePresentation.Path & "\" & _
ActivePresentation.Name)

' Name only:
PathAndName = Lcase(ActivePresentation.Name)
' or just ActivePresentation.Name if you don't want it all lowercase

' ' Checks whether there is a Title Master, and if so, updates the
' ' path.
' If ActivePresentation.HasTitleMaster Then
' With ActivePresentation.TitleMaster.HeadersFooters
' With .Footer
' .Text = PathAndName
' End With
' End With
' End If
'
' ' Updates the slide master.
' With ActivePresentation.SlideMaster.HeadersFooters
' With .Footer
' .Text = PathAndName
' End With
' End With


' Let's poke the NotesMaster instead
With ActivePresentation.NotesMaster.HeadersFooters
With .Footer
.Text = PathAndName
End With
End With

' ' Updates the individual slides that do not follow the master.
'Dim X As Integer
'For X = 1 To ActivePresentation.Slides.Count
' With ActivePresentation.Slides(X).HeadersFooters
' With .Footer
' .Text = PathAndName
' End With
' End With
' Next

End Sub
This leaves me with the following questions;


Q. How can I modify the code so the MACRO adds the filename to the
HANDOUT footer text box?
Click to expand...

See above but instead of NotesMaster, use HandoutMaster
Q. Is there a library of the macro functions available on the net?
Click to expand...

Not as such, but there's a fair amount of sample code in the programming
section of the PPT FAQ (http://www.pptfaq.com) and there are also links to
other similar sites there.
Q. Also, how can I change the font size of the footer?
Click to expand...

Easiest thing is to change it by formatting the placeholder on the appropriate
master.
Q. I saved the macro in the templet *.pot file but it appear to only be
accessible in the pot file. I have tried saving it to the 'all open
documents' option but that doesn't seem to help.
Click to expand...

What are you trying to accomplish here?
 
You really are a gentleman and a scholar. Thank you very much.



Steve Rindsberg said:
This is a good workaround but if it could be modified to put the footer
in the handout only I would be most appreciative.
Click to expand...

Here'tis: I've commented out the stuff that changes slides and slide masters,
added a bit to change the Notes master:

Sub UpdatePath()

' Macro to add the path and file name to each slide's footer.
Dim PathAndName As String
Dim FeedBack As Integer

' Place a message box warning prior to replacing footers.
FeedBack = MsgBox( _
"This Macro replaces any existing text that appears " & _
"within your current footers " & Chr(13) & _
"with the presentation name and its path. " & _
"Do you want to continue?", vbQuestion + vbYesNo, _
"Warning!")

' If no is selected in the dialog box, quit the macro.
If FeedBack = vbNo Then
End
End If


' Gets the path and file name and converts the string to lowercase.
'PathAndName = LCase(ActivePresentation.Path & "\" & _
ActivePresentation.Name)

' Name only:
PathAndName = Lcase(ActivePresentation.Name)
' or just ActivePresentation.Name if you don't want it all lowercase

' ' Checks whether there is a Title Master, and if so, updates the
' ' path.
' If ActivePresentation.HasTitleMaster Then
' With ActivePresentation.TitleMaster.HeadersFooters
' With .Footer
' .Text = PathAndName
' End With
' End With
' End If
'
' ' Updates the slide master.
' With ActivePresentation.SlideMaster.HeadersFooters
' With .Footer
' .Text = PathAndName
' End With
' End With


' Let's poke the NotesMaster instead
With ActivePresentation.NotesMaster.HeadersFooters
With .Footer
.Text = PathAndName
End With
End With

' ' Updates the individual slides that do not follow the master.
'Dim X As Integer
'For X = 1 To ActivePresentation.Slides.Count
' With ActivePresentation.Slides(X).HeadersFooters
' With .Footer
' .Text = PathAndName
' End With
' End With
' Next

End Sub
This leaves me with the following questions;


Q. How can I modify the code so the MACRO adds the filename to the
HANDOUT footer text box?
Click to expand...

See above but instead of NotesMaster, use HandoutMaster
Q. Is there a library of the macro functions available on the net?
Click to expand...

Not as such, but there's a fair amount of sample code in the programming
section of the PPT FAQ (http://www.pptfaq.com) and there are also links to
other similar sites there.
Q. Also, how can I change the font size of the footer?
Click to expand...

Easiest thing is to change it by formatting the placeholder on the appropriate
master.
Q. I saved the macro in the templet *.pot file but it appear to only be
accessible in the pot file. I have tried saving it to the 'all open
documents' option but that doesn't seem to help.
Click to expand...

What are you trying to accomplish here?
 
Thanks for that.

Really appreciate it.

What are you trying to accomplish here?
Click to expand...

I make lesson plans from a templet, lesson.pot, I print out a hard copy
form my notes and in case the hardware/software fails in the classroom.

I want the file name on the bottom of every printout.

So when I create a NEW presentation I want to click a button or run a
macro that puts the current filename, which will be different for each
presentation in the footer of the handout.

When I put the code into the lesson.pot and tried to make a NEW
presentation the macro was not available in the new presentation.

This surprised me. I thought if I added a macro to the templet then the
macro would be in all subsequent presentations made from that templet.

Thanks again

--
 
Well thanks for that.

I have installed it in my templet and after some messing about, I think
I did something daft! And confused PowerPoint and/or myself!!

I have it all working now.

It works great, I owe you a beer or two.

Thanks
 
Well thanks for that.

I have installed it in my templet and after some messing about, I think
I did something daft! And confused PowerPoint and/or myself!!

I have it all working now.

It works great, I owe you a beer or two.
Click to expand...

Hey. This pays better than my day job. I could grow to like this.
 
Don't you just love it! Virtual beers No hangover




Well thanks for that.

I have installed it in my templet and after some messing about, I think
I did something daft! And confused PowerPoint and/or myself!!

I have it all working now.

It works great, I owe you a beer or two.
Click to expand...

Hey. This pays better than my day job. I could grow to like this.
 
Back
Top