Powerpoint add slide

[rj771972]

Hello,
I notice that when I use the code below, a slide is added BEFORE the current slide rather than AFTER. Not sure why


Dim oPPt
Dim oPPs
Dim ObjSlide
Dim ObjShape
Dim objWnd
Dim ObjImage

Const ppLayoutText = 12

Set oPPt = CreateObject("PowerPoint.Application")

Set oPPs = oPPt.Presentations.Open("c:\tmp\test.pptx")

oPPt.Visible = True

Set objSlide = oPPs.Slides.Add _
(1, ppLayoutText)

 

[SkipVought]

https://docs.microsoft.com/en-us/office/vba/api/powerpoint.slides.addslide

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}
"The most incomprehensible thing about the universe is that it is comprehensible" A. Einstein