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
