[VBA] Mit Excel Powerpoint-Funktionen aufrufen

Presentations.Open FileName:="C:\My Documents\pres1.potm"

Sub UpdateAufruf()
    Dim ExcelFile
    Dim exl As Object
    Set exl = CreateObject("Excel.Application")
     
     'Neuer Pfad zur Excel
    ExcelFile = "C:\Users\Mustermann\Muster.xlsm"
     
    Dim i As Integer
    Dim k As Integer
     
     'Gehe durch jede Folie
    For i = 1 To ActivePresentation.Slides.Count
        With ActivePresentation.Slides(i)
             'Untersuche jedes Diagramm auf allen Folien
            For k = 1 To .Shapes.Count
                'Ausschalten des error checkings, so das es nicht stoppt, falls das aktuelle Diagramm keine Verbindung hat
                On Error Resume Next
                 'Ressourcen der Diagramme werden mit dem neuen Pfad verbunden
             .Shapes(k).LinkFormat.SourceFullName = ExcelFile
             If .Shapes(k).LinkFormat.SourceFullName = ExcelFile Then
                 'War die Änderung erfolgreich, wird die Aktualisierung der Folien auf Autmatik gesetzt
                 .Shapes(k).LinkFormat.AutoUpdate = ppUpdateOptionAutomatic
             End If
             On Error GoTo 0
             Next k
        End With
    Next i
    
    Call UpdateChart
End Sub

Sub Speichern()
With Application.ActivePresentation
Dim Dateiname As String
    .SaveAs Dateiname, ppSaveAsPresentation
End With
End Sub