PowerPoint) (Presentation.CheckIn 方法

會從本機電腦將簡報傳回伺服器，並將本機檔案設定成唯讀，讓它不能在本機上編輯。

語法

expression。 CheckIn( _SaveChanges_, _Comments_, _MakePublic_ )

表達 代表 Presentation 物件的變數。

參數

名稱	必要/選用	資料類型	描述
SaveChanges	選用	Boolean	True 是表示 將簡報儲存至伺服器位置。 預設值為 False 。
Comments	選用	Variant	存回之簡報的修訂註解 (只有當 SaveChanges 等於 True 時才適用)。
MakePublic	選用	Variant	True 是表示 允許使用者執行後要存回簡報發佈。 此動作會送出文件以完成核准程序，這項核准程序最後會產生一個簡報版本，並發佈給對簡報有唯讀權限的使用者 (只有當 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

另請參閱

Presentation 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。