Quote Originally Posted by John Wilson View Post
It might seem wrong that strFileName is only the name NOT the path but that is how Dir works and it should insert the slide OK.

When you said it only worked the first time what did you mean. It should create a new file every time it runs as it is written and add only the first slide from each presentation in the folder. Maybe you wanted something different?
Hi, Your code does not work for me.

It shows error in the line oTarget.Slides.InsertFromFile strFileName, oTarget.Slides.Count, 1, 1
Any help would be appreciated.

Just a background on what i am trying to do.

I get alot of PPT's from various heads of projects and i am supposed to compile them all into one Master PPT and send it forward.

The order in which i compile them doesn't matter however, say if a PPTX file has 4 Slides, i would want those 4 slides to be together; and not one in the start and one in the end.

For clarity's sake, in a nutshell, Can you help me with a code where

1. I put all the files i get in a folder
2. I run the Macro in a blank .PPTX File saved in the same directory, maybe i'll name it Main PPT
3. The Macro takes slides from all the other .PPTX files in the Directory and Consolidates it into the PPT.
4. Ta da! Half an hour of Copy pasting done in minutes!

PS: If there would be a way of Checking if all the files have been pasted from the directory i would greatly appreciate it? Like a message-box saying slides X and Y are missing from X.pptx and Y.pptx file in case of an error in copy pasting?

I am using PowerPoint 2013 if that helps.
Thank you! for taking the time to read this!
I am by no means a pro in VBA so go easy on me :P