Insert Year Field into PowerPoint

Home Forums Tech Office and Applications Insert Year Field into PowerPoint

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

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.