Presentation.CheckInWithVersion 方法 (PowerPoint)

从本地计算机将演示文稿返回到服务器，并且设置本地文件为只读，以便使得其不能在本地编辑。

语法

expression。 CheckInWithVersion( _SaveChanges_, _Comments_, _MakePublic_, _VersionType_ )

表达 返回 Presentation 对象的表达式。

参数

名称	必需/可选	数据类型	说明
SaveChanges	可选	Boolean	真正 的服务器位置保存该演示文稿。 默认值为 False 。
Comments	可选	Variant	正被签入的演示文稿的修订批注（仅在 SaveChanges 等于 True 时应用）。
MakePublic	可选	Variant	为 使用户可以执行发布在签入之后的表现。 这样会提交文档使之进入审批流程，最终可将一种演示文稿版本发布给对演示文稿具有只读权限的用户（仅在 SaveChanges 等于 True 时应用）。
VersionType	可选	Variant	演示文稿的版本号。

备注

若要利用 Microsoft PowerPoint 中内置的协作功能，必须将演示文稿存储在 Microsoft SharePoint Portal Server 上。

对于 VersionType 参数，还可以传递 PpCheckInVersionType 枚举中的常量。

示例

本示例检查服务器以查看是否可以签入指定的演示文稿，如果是，则关闭演示文稿并将其签回服务器。

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

若要调用上述子例程，请使用以下子例程并将“” https://servername/workspace/report.ppt 文件名替换为位于上述“备注”部分中提到的服务器上的实际文件。

Sub CheckInPresentation()

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

End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。