Add Method (Slides Collection Object) Example

This example adds a slide that contains a title placeholder at the beginning of the active presentation.

ActivePresentation.Slides.Add 1, ppLayoutTitleOnly

This example adds a blank slide at the end of the active presentation.

With ActivePresentation.Slides
    .Add .Count + 1, ppLayoutBlank
End With