Consulting

Results 1 to 9 of 9

Thread: Footer Apply to All

  1. #1

    Footer Apply to All

    I can loop thru all existing slides and update the footer text but if i add new slides it does not use this footer text and i have to run the code again.

        For Each sld In ActivePresentation.Slides
            If sld.HeadersFooters.Footer.Visible = msoTrue Then
                sld.HeadersFooters.Footer.Text = "My footer text"
            End If
        Next
    Using the Header and Footer dialog allows you to Apply to All which both updates the existing slides and applies to any new slides with the footer placeholder. Is there an equivalent of this "Apply to All" action in VBA or, alternatively, a way to display the Header and Footer dialog?

    Thanks

  2. #2
    VBAX Master
    Joined
    Feb 2007
    Posts
    1,963
    Location
    To the best of my knowledge there is no way to call "Apply To All" in vba
    John Wilson
    Microsoft PowerPoint MVP
    Amazing Free PowerPoint Tutorials
    http://www.pptalchemy.co.uk/powerpoi...tutorials.html

  3. #3
    VBAX Sage
    Joined
    Apr 2007
    Posts
    7,740
    Location
    Why not set the footer text in the Slide Master?
    ---------------------------------------------------------------------------------------------------------------------

    Paul


    Remember: Tell us WHAT you want to do, not HOW you think you want to do it

    1. Use [CODE] ....[/CODE ] Tags for readability
    [CODE]PasteYourCodeHere[/CODE ] -- (or paste your code, select it, click [#] button)
    2. Upload an example
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) / Upload Files / Done
    3. Mark the thread as [Solved] when you have an answer
    Thread Tools (on the top right corner, above the first message)
    4. Read the Forum FAQ, especially the part about cross-posting in other forums
    http://www.vbaexpress.com/forum/faq...._new_faq_item3

  4. #4
    VBAX Master
    Joined
    Feb 2007
    Posts
    1,963
    Location
    You still have to click "Apply To All" to make it appear on new slides I think.
    John Wilson
    Microsoft PowerPoint MVP
    Amazing Free PowerPoint Tutorials
    http://www.pptalchemy.co.uk/powerpoi...tutorials.html

  5. #5
    VBAX Sage
    Joined
    Apr 2007
    Posts
    7,740
    Location
    Quote Originally Posted by John Wilson View Post
    You still have to click "Apply To All" to make it appear on new slides I think.
    Don't think so

    Master slide
    Insert Header / Footer
    Check Footer
    Apply or Apply All - doesn't seem to matter

    Inserting new slides shows the 'Master Footer'

    Capture.JPG
    ---------------------------------------------------------------------------------------------------------------------

    Paul


    Remember: Tell us WHAT you want to do, not HOW you think you want to do it

    1. Use [CODE] ....[/CODE ] Tags for readability
    [CODE]PasteYourCodeHere[/CODE ] -- (or paste your code, select it, click [#] button)
    2. Upload an example
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) / Upload Files / Done
    3. Mark the thread as [Solved] when you have an answer
    Thread Tools (on the top right corner, above the first message)
    4. Read the Forum FAQ, especially the part about cross-posting in other forums
    http://www.vbaexpress.com/forum/faq...._new_faq_item3

  6. #6
    VBAX Master
    Joined
    Feb 2007
    Posts
    1,963
    Location
    It appears in the dialog but does it appear on new slides automatically (without pressing Apply to All)?
    Last edited by John Wilson; 02-01-2021 at 12:07 AM.
    John Wilson
    Microsoft PowerPoint MVP
    Amazing Free PowerPoint Tutorials
    http://www.pptalchemy.co.uk/powerpoi...tutorials.html

  7. #7
    I don't think it does. I can't find a away around it. I've tried Sendkeys but that has thrown up too many issues.

  8. #8
    VBAX Sage
    Joined
    Apr 2007
    Posts
    7,740
    Location
    Seems to work as expected / wanted
    Attached Files Attached Files
    ---------------------------------------------------------------------------------------------------------------------

    Paul


    Remember: Tell us WHAT you want to do, not HOW you think you want to do it

    1. Use [CODE] ....[/CODE ] Tags for readability
    [CODE]PasteYourCodeHere[/CODE ] -- (or paste your code, select it, click [#] button)
    2. Upload an example
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) / Upload Files / Done
    3. Mark the thread as [Solved] when you have an answer
    Thread Tools (on the top right corner, above the first message)
    4. Read the Forum FAQ, especially the part about cross-posting in other forums
    http://www.vbaexpress.com/forum/faq...._new_faq_item3

  9. #9
    Thanks for your continued interest, Paul. The issue is, how do you do it in VBA; I know how to do it manually in PowerPoint? I have a dialog where users enter the title/footer and it's that which i want to apply to all. The user does not use the Header & Footer dialog.

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •