VBA Funktion "undocheckout" für SharePoint Datei funktioniert nicht

Question

Hallo,

ein User von uns versucht via VBA Script ein SharePoint Dokument aus- und einzuchecken und auch das ausschecken zu verwerfen. Das Aus- und einchecken funktioniert mit seinem Code, jedoch das verwerfen des auschecken nicht. Ich habe den Code einmal angehangen. Könnt ihr hier unterstützen?

Danke & Gruß

Marco

Sub Makro1()

Dim oPP As Object 'Power Point
Set oPP = CreateObject("PowerPoint.Application") 'Für Power Point
If Workbooks.CanCheckOut("pathtofile.pptx") = True Then
            oPP.presentations.CheckOut ("pathtofile.pptx")
        End If
        
         oPP.presentations.Open "pathtofile.pptx"
        
        Windows("filename.pptx").Activate
        
        oPP.ActiveDocument.UndoCheckOut 'neither this
        oPP.presentations.UndoCheckOut 'nor that works
          
End Sub