CanCheckIn Method

expression.CanCheckIn

expression    Required. An expression that returns one of the objects in the Applies To list.

Remarks

To take advantage of the collaboration features built into PowerPoint, presentations must be stored on a Microsoft SharePoint Portal Server.

Example

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 "http://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:= _
        "http://servername/workspace/report.ppt")
End Sub