UndoRecord.CustomRecordLevel プロパティ (Word)

現在アクティブなユーザー設定の元に戻す操作の呼び出し回数を指定する長整数型 (Long) を返します。 読み取り専用です。

構文

式。 CustomRecordLevel

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

注釈

ユーザー設定の元に戻す操作がアクティブでない場合は、このプロパティは 0 に設定されます。

例

次のコード例では、ユーザー設定の元に戻す操作が現在記録中であるかどうかを確認します。 記録中でない場合は、コードによってユーザー設定の元に戻す操作の記録が作成されます。 最後に、このコードはすべてのユーザー設定の元に戻すアクションがアクティブかどうか確認します。 アクティブである場合は、デバッグ ウィンドウにメッセージが表示されます。

Dim objUndo As UndoRecord
 
Sub MyFunction()
    Set objUndo = Application.UndoRecord
    
    ' Verify that a custom undo record is already being recorded, and if not, start one
    If objUndo.IsRecordingCustomRecord = False Then
        objUndo.StartCustomRecord ("New Undo Record")
    End If
    ' Add some actions here.
    objUndo.EndCustomRecord
    
    ' Verify that any custom undo action calls are currently active.
    If objUndo.CustomRecordLevel > 0 Then
        Debug.Print "An undo record call was not closed!"
    End If
End Sub

関連項目

UndoRecord オブジェクト

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

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