Presentation.CheckIn 方法 (PowerPoint)

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

语法

expression。 CheckIn( _SaveChanges_, _Comments_, _MakePublic_ )

表达 一个代表 Presentation 对象的变量。

参数

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

备注

要利用 Microsoft PowerPoint 中内置的协作功能，演示文稿必须存储在 Microsoft Office SharePoint Portal 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

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

Sub CheckInPresentation()

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

End Sub

另请参阅

演示文稿对象

支持和反馈

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