Öffnen von Präsentationen auf SharePoint

[JonasRe]

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

[schauan]

Hallöchen,

hast Du bei uns schon mal nach dem Stichwort Sharepoint gesucht? Du findest z.B. das.

VBA-Excelmappe-auf-Sharepoint-speichern?

Ist zwar Excel, sollte im Prinzip aber ähnlich funktionieren.