Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

Adding a Slide to a Presentation

Sub add()     Dim mySlide As Slide     Set mySlide = ActivePresentation.Slides.Add(Index:=1, _         Layout:=ppLayoutTitle) End Sub