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.

Öffnen von Präsentationen auf SharePoint
#1
Hallo zusammen, 

ich habe ein Makro welches verschiedene PowerPoint-Präsentationen öffnet und diese zusammenfügt. Aktuell funktioniert dies auch soweit, jedoch leider nur lokal. Nun möchte ich einen Schritt weitergehen und die PowerPoint Präsentationen aus der SharePoint-Seite öffnen und zusammenfügen. Ich habe, wie bei den lokalen Dateien, die Links hinterlegt. Jedoch öffnet mir mein Code keine PowerPoint-Präsentationen vom SharePoint, hätte jemand eine Idee?

Den tatsächlichen Pfad habe ich aus Datenschutzgründen am Anfang gekürzt.

Danke im Voraus!

Code:
Sub PPTemplates()

'Variablen definieren
 
    Dim pptPresMaster, pptPres As Presentation                 
    Dim pptApp As Object                       
    Dim i, j, ccount As Integer

    Dim SuchString As String
    Dim ZielString As String
    Dim z As Long
    Dim LetzteZeile As Long
   
LetzteZeile = Sheets("Referenz").Cells(Rows.Count, 1).End(xlUp).Row
   
Set pptApp = CreateObject("Powerpoint.Application")
pptApp.Visible = True
pptApp.Presentations.Open "Template_ScreenWide.pptx?d=w47500358e360466a8c783c6fa4d87cf1"


Set pptPresMaster = pptApp.ActivePresentation


i = 14
Do
i = i + 1
   
        SuchString = Cells(i, 2)
       
        On Error Resume Next
            For z = 1 To LetzteZeile
                If Sheets("Referenz").Cells(z, 1).Value = SuchString Then
                If Sheets("Referenz").Cells(z, 2).Value <> "" Then
                    ZielString = Sheets("Referenz").Cells(z, 2).Value
                    Set pptApp = CreateObject("Powerpoint.Application")
                    pptApp.Presentations.Open Filename:=ZielString

                    Set pptPres = pptApp.ActivePresentation
                    ccount = pptPres.Slides.Count
                        For j = 1 To ccount
                            pptPres.Slides(j).Copy
                            pptPresMaster.Slides.Paste
                        Next j
                        pptPres.Close
                        Set pptApp = Nothing
                End If
                End If
            Next z

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


                           
End Sub
Antwortento top


Gehe zu:


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