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!
Advertisement
'==========================================
' 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
VBAmacros.net
VBAmacros.net
VBAmacros.net
VBAmacros.net
