Returns a presentation from a local computer to a server, and sets the local file to read-only so that it cannot be edited locally.

Syntax

expression.CheckIn12(SaveChanges, Comments, MakePublic, VersionType)

expression An expression that returns a Presentation object.

Parameters

Name Required/Optional Data Type Description
SaveChanges Optional Boolean True saves the presentation to the server location. The default value is False.
Comments Optional Variant Comments for the revision of the presentation being checked in (only applies if SaveChanges equals True).
MakePublic Optional Variant True allows the user to perform a publish on the presentation after being checked in. This submits the document for the approval process, which can eventually result in a version of the presentation being published to users with read-only rights to the presentation (only applies if SaveChanges equals True).
VersionType Optional Variant Version number of the presentation.

Remarks
To take advantage of the collaboration features built into Microsoft Office 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 so, closes the presentation and checks it back into server.

Visual Basic for Applications 
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.
Visual Basic for Applications 
Sub CheckInPresentation() Call CheckInPresentation(strPresentation:= _ "http://servername/workspace/report.ppt") End Sub
120 ppv ppv120