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?