Presentation.CheckInWithVersion method (PowerPoint)

Artikkel
01/19/2022

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. CheckInWithVersion( _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 PowerPoint, you must store presentations on a Microsoft SharePoint Portal Server.

For the VersionType parameter, you can also pass a constant from the PpCheckInVersionType enumeration.

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.

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 CheckInPresentation()

    Call CheckInPresentation(strPresentation:= "https://servername/workspace/report.ppt ")

End Sub

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Del via