Option
Explicit
Sub
pptSlidesAdd()
Dim
pptApp
As
PowerPoint.Application
Dim
pptPres
As
PowerPoint.Presentation
Dim
pptSlide
As
Slide
Dim
pptLayout
As
CustomLayout
Set
pptApp =
New
PowerPoint.Application
pptApp.Presentations.Add msoTrue
Set
pptPres = pptApp.ActivePresentation
pptPres.Slides.Add 1, 2
Set
pptLayout = pptPres.Slides(1).CustomLayout
Set
pptSlide = pptPres.Slides.AddSlide(2, pptLayout)
Set
pptSlide = pptPres.Slides.AddSlide(3, pptLayout)
Set
pptSlide = pptPres.Slides.AddSlide(4, pptLayout)
Set
pptPres =
Nothing
Set
pptApp =
Nothing
End
Sub