Powerpoint - Add A Blank Slide After The Current Slide

This macro adds a blank slide after the current slide in the slide show.

Powerpoint

9887
1836
0
0

Add to collection

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!

Code

'==========================================
' Add Slide After Current Slide
'==========================================
Sub addSlideAfterCurrentSlide()
    ' Set variables
    Dim sld As Slide
    Dim idxCurrentSlide As Byte
    ' Get slide index
    idxCurrentSlide = Application.ActiveWindow.View.Slide.SlideIndex
    ' Add blank slide
    Set sld = ActivePresentation.Slides.Add(idxCurrentSlide, ppLayoutBlank)
End Sub