Reputation: 23
How can I add a blank slide at some specific place? For example second position.
Upvotes: 2
Views: 13061
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