Presentation.CanCheckIn Method (PowerPoint)
Returns True if Microsoft PowerPoint can check in a specified presentation to a server.
expression A variable that represents a Presentation object.
To take advantage of the collaboration features built into PowerPoint, you must store presentations on a Microsoft SharePoint Portal Server.
This example checks the server to see if the specified presentation can be checked in and, if it can be, closes the presentation and checks it back into server.
Sub CheckInPresentation(strPresentation As String) If Presentations(strPresentation).CanCheckIn = True Then Presentations(strPresentation).CheckIn MsgBox strPresentation & " has been checked in." Else MsgBox strPresentation & " cannot be checked in " & _ "at this time. Please try again later." End If End Sub
To call the subroutine above, use the following subroutine and replace the " https://servername/workspace/report.ppt " file name with an actual file located on a server mentioned in the Remarks section above.
Sub CheckPPTIn() Call CheckInPresentation(strPresentation:= _ "https://servername/workspace/report.ppt ") End Sub