VBA/Excel/Access/Word/PowerPoint/PowerPoint Format

Applying a Background to One or More Slides

   <source lang="vb">

Sub background()

   With Presentations("your.ppt").Slides(4)
       .FollowMasterBackground = msoFalse
       .DisplayMasterShapes = msoFalse
       With .Background
           .Fill.ForeColor.RGB = RGB(255, 255, 255)
           .Fill.BackColor.SchemeColor = ppAccent1
           .Fill.UserPicture "C:\Winter.jpg"
       End With
   End With

End Sub

</source>
   
  

Applying a Color Scheme to a Slide

   <source lang="vb">

Sub color()

   ActivePresentation.Slides.Range(Array(1, 2, 3)) _
       .ColorScheme.Colors(ppBackground).RGB = RGB(0, 0, 0)

End Sub

</source>
   
  

Check font size

   <source lang="vb">

Option Explicit
Function CheckMinFontSize(objPresentation As Presentation) As Boolean
    Dim objSlide As Slide
    Dim objShape As Shape
    CheckMinFontSize = True
    For Each objSlide In objPresentation.Slides
        objSlide.Select
        objSlide.Shapes.SelectAll
        For Each objShape In Windows(1).Selection.ShapeRange
            If objShape.Type = msoPlaceholder Then
                If objShape.TextFrame.TextRange.Font.Size < 14 Then
                    CheckMinFontSize = False
                    Exit Function
                End If
            End If
        Next objShape
    Next objSlide
End Function
Sub Font_Check()
    If CheckMinFontSize(ActivePresentation) = False Then
        Debug.Print "too small."
    End If
End Sub
</source>
   
  

Displaying or Hiding a Header or Footer Object

   <source lang="vb">

Sub footerV()

   ActivePresentation.Slides(5).HeadersFooters.Footer.Visible = msoFalse

End Sub

</source>
   
  

PowerPoint format ppSaveAsPresentation

   <source lang="vb">

Sub save()

   ActivePresentation.SaveAs FileName:="C:\HR.ppt", _
       FileFormat:=ppSaveAsPresentation, EmbedTrueTypeFonts:=msoFalse

End Sub

</source>
   
  

Setting the Format for Date and Time Headers and Footers

   <source lang="vb">

Format Example ppDateTimeddddMMMMddyyyy Thursday, October 05, 2006 ppDateTimedMMMMyyyy 5 October 2006 ppDateTimedMMMyy 5-Oct-06 ppDateTimeHmm 10:17 ppDateTimehmmAMPM 10:17 AM ppDateTimeHmmss 10:17:16 ppDateTimehmmssAMPM 10:17:16 AM ppDateTimeMdyy 10/5/2006 ppDateTimeMMddyyHmm 10/5/2006 10:17 AM ppDateTimeMMddyyhmmAMPM 10/5/2006 10:17:16 AM ppDateTimeMMMMdyyyy October 5, 2006 ppDateTimeMMMMyy October 06 ppDateTimeMMyy Oct-06

</source>
   
  

Setting the Text in a Header or Footer

   <source lang="vb">

Sub footerText()

   ActivePresentation.Slides(5).HeadersFooters.Footer.Text = "Confidential"

End Sub

</source>
   
  

Standardizing All the Headers and Footers in a Presentation

   <source lang="vb">

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

</source>