Home Forums Tech Office and Applications Insert Year Field into PowerPoint

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
  • #2324
    Karl Schmitd

    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.

    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?

Viewing 2 posts - 1 through 2 (of 2 total)
  • You must be logged in to reply to this topic.