
Originally Posted by
anton86
Hello,
I tried this solution and it is not working for me

could you please walk me through your comments, may be I am not replacing what needs to be replaced to make it work

I know, this topic is quite old, still I was using the code today. That is why I am trying to help with errors that may occur.
For me it worked in the first place but did not anymore at further tries. I tried to monitor the mistake, could not really figure the mistake and nevertheless tried to build a workaround just by guessing. Here's what worked fine for me in the end:
Sub Combine_fromFolder()
Dim strFPath As String
Dim strSpec As String
Dim strFileName As String
Dim oTarget As Presentation
Set oTarget = Application.Presentations.Add(WithWindow:=True)
strFPath = "C:\Users\John\Desktop\Test\" ' Edit this
strSpec = "*.PPTX" 'to include PPT etc use "*.PP*"
strFileName = Dir$(strFPath & strSpec)
While strFileName <> ""
strFileName = strFPath & strSpec
oTarget.Slides.InsertFromFile strFileName, oTarget.Slides.Count, 1, 1
strFileName = Dir()
Wend
End Sub