Add footer to all slides in PPT 2007

[Tonny]

I now want to add a custom footer in ppt 2007 using vba. I can
come close using code from a PPT 2003 macro with following code,

............
With ActivePresentation.SlideMaster.HeadersFooters
With .Footer
.Visible = msoTrue
.Text = "my custom text"
End With
.SlideNumber.Visible = msoTrue
.DisplayOnTitleSlide = msoFalse
End With

but the "applytoall
slides" part in the 2003 code doesn't work in PPT 2007 . The footer can't be
add to the new created one.

 

[Steve Rindsberg]

I now want to add a custom footer in ppt 2007 using vba. I can
come close using code from a PPT 2003 macro with following code,

............
With ActivePresentation.SlideMaster.HeadersFooters
With .Footer
.Visible = msoTrue
.Text = "my custom text"
End With
.SlideNumber.Visible = msoTrue
.DisplayOnTitleSlide = msoFalse
End With

but the "applytoall
slides" part in the 2003 code doesn't work in PPT 2007 . The footer can't be
add to the new created one.

What's not working, exactly, and what's the "applytoallslides" code? Hard to
say what's wrong w/ it w/o seeing it.

I'd also have a look here.

Slides, Masters, Designs, Layouts ... how do they all fit together?
http://www.pptfaq.com/FAQ00989.htm

The code you quoted should work fine with PPT 2000 and previous, ok in 2002-
2003 only if the presentation has only one master, and even less predictably in
2007 which can have multiple masters and each master can have multiple layouts.

Look at the object model info for Designs and for CustomLayouts

 

[Tonny]

Thanks for your help Steve.

I means the footer can't be added to new created slide after running the
VBScript on ppt2k7. For PPT2k3, it works well. So i just want to know how to
create the VBScript so that all of slides can be add footer on ppt2k7
whatever original slides or new created slides after running once Script.

 

[Steve Rindsberg]

I means the footer can't be added to new created slide after running the

VBScript on ppt2k7.

Hold up ... VBScript or VBA? They're not the same.

And what happens when you run it? Do you get error messages or crashes or ...???

 

[Tonny]

Sorry, I don't familar with VBA or VB script. I think the code should be VBA.
Actually ,I just implement this feature with VC (Refer to the VBA code).
After i running the code to PPT2k3, I inserted a new slide into the
presentation, the footer was add to the slide auto. But in PPT2k7, the footer
was not added to the new created silde automatic after running the code.