如果 Microsoft PowerPoint 可以存回指定的簡報的伺服器會傳回 True 。
語法
expression。 CanCheckIn
詞 一個代表 Presentation 物件的變數。
傳回值
布林值
註解
若要利用 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
要呼叫上述子程式,請使用以下子程式,並將「 」檔案名稱替換 https://servername/workspace/report.ppt 為位於上述備註區中提及的伺服器上的實際檔案。
Sub CheckPPTIn()
Call CheckInPresentation(strPresentation:= _
"https://servername/workspace/report.ppt ")
End Sub
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。