次の方法で共有

Presentation.Sync プロパティ (PowerPoint)

  • [アーティクル]

注:

このオブジェクトまたはメンバーは使用されていませんが、以前のバージョンとの互換性を保つため、オブジェクト モデルの一部として残されています。 このオブジェクトを新しいアプリケーションで使用しないでください。

Microsoft SharePoint サーバーの共有ワークスペースに保存されている共有プレゼンテーションのローカル コピーとサーバー コピーの同期を管理することを可能にする 同期 オブジェクトを返します。 読み取り専用です。

構文

式。同期

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

戻り値

同期

注釈

Sync オブジェクトの Status プロパティは、同期の現在の状態に関する重要な情報を返します。 同期のステータスを更新するのには、 GetUpdate メソッドを使用します。 LastSyncTime 、 ErrorType 、および WorkspaceLastChangedBy プロパティを使用して、追加情報を返します。

違いと共有プレゼンテーションのローカル コピーとサーバー コピーの間に存在できる競合の詳細については、 Status プロパティを参照してください。

サーバーにローカルでの変更を保存するのには、 PutUpdate メソッドを使用します。 閉じるし、ローカルの変更が加えられていない場合、サーバーから最新バージョンを取得するためにドキュメントを再度開きます。 ローカル コピーとサーバー コピー間の相違点を解決するのには ResolveConflict メソッドまたはドキュメントの現在開いているローカル バージョンと異なるバージョンを開くには、 OpenVersion メソッドを使用します。

Sync オブジェクトの GetUpdate、PutUpdate、ResolveConflict の各メソッドは、タスクを非同期的に完了するため、状態コードを返しません。 Sync オブジェクトは、 Application オブジェクトの PresentationSync イベントと呼ばれる、1 つのイベントを発生させることによって、重要なステータス情報を提供します。

PresentationSync イベントは、 MsoSyncEventType 定数は、次のいずれかを返します。
msoSyncEventDownloadInitiated
msoSyncEventDownloadSucceededed
msoSyncEventDownloadFailed
msoSyncEventUploadInitiated
msoSyncEventUploadSucceededed
msoSyncEventUploadFailed
msoSyncEventDownloadNoChange
msoSyncEventOffline

Sync オブジェクト モデルは、使用可能な共有するかどうかと同期が有効になっているまたは作業中の文書で無効にします。 Presentation オブジェクトの Sync プロパティを返しません 何も 作業中の文書が共有されていない、または同期が有効になっていない場合。 ドキュメントが共有されているかどうかとの同期が有効になっているかどうかを決定するのにには、 Status プロパティを使用します。

すべてのドキュメントの同期の問題を発生させると、実行時エラーをトラップすることができます。 Sync オブジェクトのメソッドを使用すると、 Status プロパティをチェックするとよいでしょうが。 状態 プロパティの値が msoSyncStatusError の場合は、発生したエラーの種類の詳細については、 ErrorType プロパティをチェックします。

多くの状況では、 GetUpdate メソッドを呼び出すエラー状態を解決する方法として推奨されます。 などの場合はエラー状態で PutUpdate 結果を呼び出しに、 GetUpdate への呼び出しは状態を msoSyncStatusLocalChanges にリセットされます。

例

次の使用例は、作業中のプレゼンテーションがドキュメント ワークスペース内に存在する共有ドキュメントである場合に、その作業中のプレゼンテーションを最後に変更したユーザーの名前を表示します。

Dim eStatus As MsoSyncStatusType
Dim strLastUser As String

eStatus = ActivePresentation.Sync.Status

If eStatus = msoSyncStatusLatest Then
    strLastUser = ActivePresentation.Sync.WorkspaceLastChangedBy
    MsgBox "You have the most up-to-date copy." & _
        "This file was last modified by " & strLastUser
End If

関連項目

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

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

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