Clever-Excel-Forum

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

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.

JonasRe

schauan