Zusammenfügen mehrerer PowerPoint

[JonasRe]

Hallo zusammen, 

ich erstelle eine PowerPoint-Datei aus einem Excel, was soweit auch funktioniert. Nun möchte ich neben der erstellten PowerPoint noch zusätzliche andere PowerPoint-Präsentationen öffnen und diese mit der bereits erstellten verknüpfen, sprich einfach hinten anhängen. Die Namen der verschiedenen PowerPoint-Dateien sind ebenfalls in meiner Excel erhalten, welche ich mit einer Schleife durchlaufe, das Öffnen und Schließen der Powerpoints funktioniert.

Leider bekomme ich es nicht hin, der aktuell geöffneten PowerPoint die verschiedenen Templates hinzuzufügen.

Mein Code dafür sieht soweit so aus:

Code:

Sub AddTemplates()

'Variablen definieren
    Dim ActivePresentation As Presentation
  
    Dim pptPres As Presentation                  'PPT Präsentation aus Template
    Dim strPOTX As String                        'Name der Vorlage
    Dim pptApp As Object                         'aktive PPT Präsentation
    Dim i As Integer

i = 14

Do
                i = i + 1
   
                    'Vorlage raussuchen
                    If Cells(i, 7).Value = "ü" Then
                        strPOTX = ThisWorkbook.Path & "\" & Cells(i, 2).Value & ".pptx"
                                       
                            Set pptApp = New PowerPoint.Application
                           
                            pptApp.Presentations.Open Filename:=strPOTX, untitled:=msoTrue
                                           
                            Set pptPres = pptApp.ActivePresentation
                           
                            'Hinzufügen des Templates zur aktiven PowerPoint
                           
                           
                           
                            pptPres.Close

                    End If
   
Loop While Cells(i, 2) <> ""

End Sub

Danke schonmal im Voraus

[schauan]

Hallöchen,

eventuell mit

pptPres.Slides.InsertFromFile "FilePath&Name", pptPres.Slides.Count

[JonasRe]

Hallo schauan,

sorry für die verspätete Antwort und vielen Dank für deinen Lösungsvorschlag. 

Leider läuft es noch nicht so gewollt. Zwar wird eine neue PowerPoint geöffnet und Folien kopiert, jedoch werden diese Folien der PowerPoint hinzugefügt, aus der auch die Folien entstammen. 
Ist es möglich, dass ich in etwa sage "füge die Folien aus der aktuellen PowerPoint in die PowerPoint mit Namen XY ein (die bereits geöffnet ist)?" Ich habe glaube ich das Problem, dass ich in dem Moment zwei PP offen habe und somit mit ActivePresentation nicht zwischen den beiden unterscheiden kann.

Deinen Vorschlag habe ich wie folgt verwendet: 

Code:

Sub AddTemplates()

'Variablen definieren
    Dim ActivePresentation As Presentation
 
    Dim pptPres As Presentation                  'PPT Präsentation aus Template
    Dim strPOTX As String                        'Name der Vorlage
    Dim pptApp As Object                         'aktive PPT Präsentation
    Dim i As Integer

i = 14

Do
                i = i + 1
   
                    'Vorlage raussuchen
                    If Cells(i, 7).Value = "ü" Then
                        strPOTX = ThisWorkbook.Path & "\" & Cells(i, 2).Value & ".pptx"
                                       
                            Set pptApp = New PowerPoint.Application
                           
                            pptApp.Presentations.Open Filename:=strPOTX, untitled:=msoTrue
                                           
                            Set pptPres = pptApp.ActivePresentation
                           
                            'Hinzufügen des Templates zur aktiven PowerPoint
                           
                           pptPres.Slides.InsertFromFile strPOTX, pptPres.Slides.Count
                           
                           
                           pptPres.Close

                    End If
   
Loop While Cells(i, 2) <> ""

End Sub