Application.AddUndoUnit メソッド (Visio)

IOleUndoUnit または IVBUndoUnit インターフェイスをサポートするオブジェクトを Microsoft Visio の元に戻すキューに追加します。

構文

式。AddUndoUnit (pUndoUnit)

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

パラメーター

名前 必須 / オプション データ型 説明
pUndoUnit 必須 [UNKNOWN] IOleUndoUnit または IVBUndoUnit インターフェイスをサポートするオブジェクトへの参照です。

戻り値

なし

解説

オブジェクトに IOleUndoUnit インターフェイスを実装する方法については、 Microsoft プラットフォーム SDK を参照してください。 IVBUndoUnit インターフェイスの実装の詳細については、「Microsoft Visio ソリューションの開発」を参照してください。

例

次の手順は、 AddUndoUnit メソッドを使用して、Visio の元に戻すキューにオブジェクトを追加する方法を示しています。 作業中の文書に図形が追加されると、その図形が元に戻すまたはやり直し操作の結果として追加されたかどうかがチェックされ、追加されていない場合は元に戻す単位が追加されます。

このプロシージャは、Visio SDK のコード サンプル ライブラリにある 2 つの関連するクラス モジュールのいずれかで定義されている clsParticipateInUndo クラスのメンバーであり、個別に実行することは意図されていません。 (もう 1 つのクラス モジュールはクラス clsVBUndoUnits を定義します)。これらのクラス モジュールの詳細については、 Visio SDK を参照してください。

 
Private Sub mvsoDocument_ShapeAdded(ByVal vsoShape As IVShape) 
 
 Dim VBUndoUnit As clsVBUndoUnits 
 
 On Error GoTo mvsoDocument_ShapeAdded_Err 
 
 If Not (mvsoApplication Is Nothing) Then 
 
 If Not msvoApplication.IsUndoingOrRedoing Then 
 
 'Increment the count of undoable actions. 
 IncrementModuleVar 
 Debug.Print "Original Do: GetModuleVar = " & GetModuleVar 
 
 'Instantiate clsVBUndoUnit, a 
 'class that implements Visio.IVBUndoUnit. 
 Set VBUndoUnit = New clsVBUndoUnits 
 
 'Pass the current instance of the class 
 'of which this procedure is a member, 
 'clsParticipateInUndo, to the Undo unit. 
 VBUndoUnit.SetModelObject Me 
 
 'Add an Undo unit. 
 mvsoApplication.AddUndoUnit VBUndoUnit 
 
 End If 
 
 End If 
 
Exit Sub 
 
mvsoDocument_ShapeAdded_Err: 
 
 MsgBox Err.Description 
 
End Sub

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

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

  • Last updated on