Automatic name in footer


S

SV

I want to ensure that I put the name of a presentation in the footer
when I save the presentation. So I understand that this needs an to
be driven by a "Save" event.

I have found http://officeone.mvps.org/eventgen/eventgen.html with

Sub OnPresentationSave(ByVal Pres As Presentation)
MsgBox "OnPresentationSave: Presentation " + Pres.Name + " saved!"
End Sub

But how do I integrate combine this with the code from http://pptfaq.com/FAQ00407.htm
???

Sub FilenameInFooter()

Dim FooterText As String

' And set it to the current presentation's full path/name
FooterText = ActivePresentation.FullName
' or if you prefer just the name use
' FooterText = ActivePresentation.Name

If ActivePresentation.HasTitleMaster Then
With ActivePresentation.TitleMaster.HeadersFooters
With .Footer
.Text = FooterText
.Visible = msoTrue
End With
End With
End If

With ActivePresentation.SlideMaster.HeadersFooters
With .Footer
.Text = FooterText
.Visible = msoTrue
End With
End With

With ActivePresentation.Slides.Range.HeadersFooters
With .Footer
.Text = FooterText
.Visible = msoTrue
End With
End With

End Sub

Do I need the event generator add-in to be selected all the time?
Where is the combined code stored? Another add-in??

Confused!

Steve
 
Ad

Advertisements

S

Steve Rindsberg

If I understand the event generator addin correctly, you should simply do this:

Sub OnPresentationSave(ByVal Pres As Presentation)
' insert code from FilenameInFooter here
' but remove the first line: Sub FilenameInFooter
' and the last line: End Sub
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top