Footer Apply to All

[David of New]

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

[John Wilson]

To the best of my knowledge there is no way to call "Apply To All" in vba

[Paul_Hossler]

Why not set the footer text in the Slide Master?

[John Wilson]

You still have to click "Apply To All" to make it appear on new slides I think.

[Paul_Hossler]

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'

27829

[John Wilson]

It appears in the dialog but does it appear on new slides automatically (without pressing Apply to All)?

[David of New]

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.

[Paul_Hossler]

Seems to work as expected / wanted

[David of New]

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.