Standardizing All the Headers and Footers in a Presentation : PowerPoint Format « PowerPoint « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. PowerPoint
  3. PowerPoint Format

Standardizing All the Headers and Footers in a Presentation

 
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








Related examples in the same category

1.Check font size
2.PowerPoint format ppSaveAsPresentation
3.Applying a Background to One or More Slides
4.Applying a Color Scheme to a Slide
5.Displaying or Hiding a Header or Footer Object
6.Setting the Text in a Header or Footer
7.Setting the Format for Date and Time Headers and Footers