CanCheckIn 方法

值为 True 时，Microsoft PowerPoint 可以将指定的演示文稿签入到服务器。可读写。Boolean 类型。

expression  必选。该表达式返回“应用于”列表中的对象之一。

说明

若要利用 PowerPoint 中的协作功能，演示文稿必须保存在 Microsoft 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

若要调用上述子程序，请使用下列子程序并用在上面说明部分中提到的服务器上的实际文件替换“http://servername/workspace/report.ppt”文件名。

Sub CheckPPTIn()
    Call CheckInPresentation(strPresentation:= _
        "http://servername/workspace/report.ppt")
End Sub