Application.AddUndoUnit メソッド (Visio)

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

構文

式。AddUndoUnit (pUndoUnit)

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

パラメーター

戻り値

なし

解説

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

例

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

このプロシージャはクラス clsParticipateInUndo のメンバーであり、Visio SDK のコード サンプル ライブラリの 2 つの関連クラス モジュールのいずれかで定義されており、個別に実行することを意図していません。 (他のクラス モジュールでは、クラス 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 のサポートおよびフィードバックを参照してください。