Insert Year Field into PowerPoint

Home › Forums › Tech › Office and Applications › Insert Year Field into PowerPoint

Tagged: , , , , , , , ,

This topic contains 1 reply, has 2 voices, and was last updated by  Bakal Shick 12 years, 2 months ago.

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • 2012/02/14 at 16:46 #2324

    Karl Schmitd
    Participant

    Can’t figure out, how to insert fields into PowerPoint and how to update them.

    All I need is an updatable © YYYY in the footer of PowerPoint presentation.

    2012/02/14 at 19:37 #2374

    Bakal Shick
    Participant

    I found only this awkward way of inserting copyrighted Year and Company name into the footer:

    Sub InsertYYYY()
    
'2012-02-14 TU  15:10  Sets all footers to "©2012 Company, Inc."
    
For ii = 1 To ActivePresentation.Slides.Count
    
With ActivePresentation.Slides(ii).HeadersFooters.Footer
    
.Visible = msoCTrue
    
.Text = "©" & Year(Now()) & " Company, Inc."
    
End With
    
Next ii
    
End Sub

    This works both in PowerPoint 2007 and 2010.

    However, here are the problems with this code:

    – How to attach this code to “Open Presentation” event?

    – How to make footer textbox to appear in a desired place in the footer?

    – What about setting font size and color?

  • Author
    Posts
Viewing 2 posts - 1 through 2 (of 2 total)

You must be logged in to reply to this topic.