次の方法で共有

Presentation.CheckIn メソッド (PowerPoint)

  • [アーティクル]

プレゼンテーションをローカル コンピューターからサーバーに戻し、ローカル ファイルを読み取り専用に設定して、ローカルで編集できないようにします。

構文

式。 CheckIn( _SaveChanges_, _Comments_, _MakePublic_ )

式Presentation オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Savechanges 省略可能 ブール型 (Boolean) True の場合 は、サーバーの場所にプレゼンテーションを保存します。 既定値は、 false を指定 します。
Comments 省略可能 バリアント型 チェックインするプレゼンテーションの変更履歴に関するコメントです (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

関連項目

プレゼンテーション オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。