'Code that looks through each shape and then formats the text to
  'a specific type of font.
  
  Dim pst As Presentation, CheckSlide As Slide, CheckShape As Shape
  
  Set pst = ActivePresentation
  
    On Error Resume Next 'Skip over no text shapes and wordart.
    For Each CheckSlide In pst.Slides
      For Each CheckShape In CheckSlide.Shapes
        CheckShape.TextFrame.TextRange.ChangeCase ppCaseTitle
        CheckShape.Shadow.Visible = False
        'Times New Roman, 60pt, Bold, font color, Sentence case, no shadow, etc
        With CheckShape.TextFrame2.TextRange.Font
          .Name = "Times New Roman"
          .Size = 60
          .Bold = msoTrue
          .Fill.ForeColor.RGB = vbBlack
          .Shadow.Visible = False
          'Add other attributes as needed.
        End With
      Next CheckShape
    Next CheckSlide
    On Error GoTo 0
End Sub