title: VBA to scale slide size to PPT Standard 4:3 Maximize
body: <p>I want to resize my PowerPoint slide size to Standard (4:3) Maximize. I have the code to automatic resized to 4:3, but it defaults to Ensure Fit. How could I change the code to scale the Slide Size to 4:3 Maximize and not Ensure Fit? I've tried looking all over the internet and didn't see a solution. </p>
  
  <p>This is the code I have so far. Thank you in advance!</p>
  
  <pre><code>Public Sub StandardMaximize()
  
  Dim PPPres As Presentation
  Application.ActivePresentation.PageSetup.SlideSize = ppSlideSizeCustom
  Set PPPres = Application.ActivePresentation
  
  With PPPres.PageSetup
  .SlideSize = ppSlideSizeCustom
  .SlideWidth = 10 * 72
  .SlideHeight = 7.5 * 72
  .FirstSlideNumber = 1
  .SlideOrientation = msoOrientationHorizontal
  .NotesOrientation = msoOrientationVertical
  End With
  End Sub
  </code></pre>