Asinkan
Asinkan

Reputation: 23

Add a blank slide

How can I add a blank slide at some specific place? For example second position.

Upvotes: 2

Views: 13061

Answers (1)

Steve Rindsberg
Steve Rindsberg

Reputation: 14809

Sub InsertSlide()
    Dim oLayout As CustomLayout
    Dim lPosition As Long
    Dim oSl As Slide

    ' What layout/master should the new slide use?
    ' Designs(1) = the first SlideMaster in the presentation
    ' CustomLayouts(1) = a Title layout
    ' To get other layout index numbers, look at the layout gallery
    ' in PPT, count left to right, top to bottom
    Set oLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(1)
    lPosition = 3

    Set oSl = ActivePresentation.Slides.AddSlide(lPosition, oLayout)
    With oSl
        ' do whatever you need to with the slide
    End With
End Sub

Upvotes: 5

Related Questions