I found only this awkward way of inserting copyrighted Year and Company name into the footer:
'2012-02-14 TU 15:10 Sets all footers to "©2012 Company, Inc."
For ii = 1 To ActivePresentation.Slides.Count
.Visible = msoCTrue
.Text = "©" & Year(Now()) & " Company, Inc."
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?