Powerpoint - Add A Blank Slide After All

This macro adds a blank slide at the end of the slides collection.


  • 4991
  • 1698
  • 0
  • 0
Add to collection
© 2024VBAmacros.net

1 Open MS Powerpoint.

2 Create a blank presentation.

3 Go to Developer's tab > click on "Visual Basic" button or hit Alt + F11.

4 Go to Insert tab > click on "Module" or hit M.

5 Copy the VBA code from below.

6 Paste the code in the newly created module.

7 Go to Run tab > click on "Run Sub/UserForm" or hit F5.

8 That's it!


' Add A Blank Slide
Sub addBlankSlide()
    ' Set variables
    Dim sldCount As Integer
    Dim sld As Slide
    ' Get slide count
    sldCount = ActivePresentation.Slides.Count
    ' Add a blank slide to the end of the slide show
    Set sld = ActivePresentation.Slides.Add(sldCount + 1, ppLayoutBlank)
End Sub

Sort by:
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.
VBAmacros.net VBAmacros.net
Code was successfully copied!
VBAmacros.net VBAmacros.net
Please sign in!
VBAmacros.net VBAmacros.net
You've already voted!