Mega Code Archive
Standardizing All the Headers and Footers in a Presentation
<![CDATA[
Sub Standardize_Headers_and_Footers()
Dim myPresentation As Presentation, mySlide As slide
Set myPresentation = ActivePresentation
For Each mySlide In myPresentation.Slides
mySlide.HeadersFooters.Clear
mySlide.DisplayMasterShapes = msoTrue
Next mySlide
With myPresentation.SlideMaster.HeadersFooters
With .Footer
.Visible = msoCTrue
.Text = "Company Confidential"
End With
With .DateAndTime
.Visible = True
.UseFormat = True
.Format = ppDateTimeMMMMyy
End With
End With
End Sub
'Controlling the Show Type
]]>