I'm working on creating a tool for powerpoint where I need to create a new PPT and then paste slides ind from a PTT from a specific location.
But i'm having some issues with it, for some reason it simply just paste in the the slides into the first presentation that is open.
this is the code I'm using:
Dim myPresentation As Presentation
'Set myPresentation = Presentations.Add(WithWindow:=msoFalse) 'hidden
Set myPresentation = Presentations.Add(WithWindow:=msoTrue) 'visible
Dim objPresentation As Presentation
Dim i As Integer
'open the target presentation
Set objPresentation = Presentations.Open("c:\temp\Test import2.pptx")
For i = 1 To objPresentation.Slides.Count