Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. Adding a Slide to a Presentation
Sub add()
    Dim mySlide As Slide
    Set mySlide = ActivePresentation.Slides.Add(Index:=1, _
        Layout:=ppLayoutTitle)
End Sub