Home Forums Tech Office and Applications Insert Year Field into PowerPoint Re: Insert Year Field into PowerPoint

Bakal Shick

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?