Layout footers - VBA

[Hamilton White]

Anyone know a routine for deleting all footers from the master and layouts?
Whatever I do, the footers in the layouts persist.

 

[John Wilson]

Hamilton

Is this in 2007?
--

john ATSIGN PPTAlchemy.co.uk
Custom vba coding and PPT Makeovers
Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html

 

[Hamilton White]

Hi,

Yes - 2007 - should have stated that. I can get the footers to delete in the
Master but the 'sub' layouts remain the same.

 

[Shyam Pillai]

Post your code. That makes it easy to edit. PPT 2007 has custom layouts
which need to be referenced in a particular manner.
Understanding Custom Layouts.
http://skp.mvps.org/2007/ppt003.htm

Regards,
Shyam Pillai

Animation Carbon - http://www.animationcarbon.com

 

[Hamilton White]

Hi,

Thanks for the interest in this. My code, for what it's worth, is below. I
can't even delete all footers from the Menu bar buttons - the only way is to
scroll through each layout and delete manually.

Sub DeleteFooters()
Dim oSld As Slide, oShp As Shape
On Error Resume Next

For Each oSld In ActivePresentation.Slides

For Each oShp In oSld.Shapes
If oShp.Type = msoPlaceholder Then
If oShp.PlaceholderFormat.Type = ppPlaceholderFooter Then
oShp.Delete
End If
End If
Next oShp
Next oSld


End Sub

Sub DeleteMasterFooter()
Dim oSh As Shape
Dim oSl As Slide
On Error GoTo ErrorHandler

For Each oSh In ActivePresentation.SlideMaster.Shapes
If oSh.Type = msoPlaceholder Then
If oSh.PlaceholderFormat.Type = ppPlaceholderFooter Then
oSh.Delete
End If
End If
Next oSh

Exit Sub

ErrorHandler:

Debug.Print err.Description

End Sub