Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zusammenfügen mehrerer PowerPoint
#1
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
Antworten Top
#2
Hallöchen,

eventuell mit

pptPres.Slides.InsertFromFile "FilePath&Name", pptPres.Slides.Count
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste