title: Change Font/Paragraph Spacing/Change Slide size VBA Powerpoint 2013
body: <p>I want to do several things to a presentation in Powerpoint 2013:</p>
  
  <ul>
  <li>change Font to all text  to "Times New Roman" size 53, Bold</li>
  <li>change Paragraph Spacing Before to 0</li>
  <li>change slide size to 27.508 x 19.05 cm</li>
  </ul>
  
  <p>This is what I have: </p>
  
  <pre><code>Sub use()
  
   Dim oSl As Slide
   Dim osh As Shape
   For Each oSl In ActivePresentation.Slides
      For Each osh In oSl.Shapes
          If osh.HasTextFrame Then
          With osh.TextFrame.TextRange
             .ParagraphFormat.Alignment = ppAlignCenter
             .ParagraphFormat.SpaceBefore = 0
          End With
          With osh.TextFrame.TextRange
             With .Font
             .Name = "Times New Roman"
             .Italic = False
             .Size = "53"
             End With
          End With
          With ActivePresentation.PageSetup
          .SlideHeight = 19.05
          .SlideWidth = 27.508
  
          End If
   Next
   Next ' slide
  
  End Sub
  </code></pre>