Método Application.BeginUndoScope (Visio)

Inicia una transacción con un identificador de ámbito único para una instancia de Microsoft Visio.

Sintaxis

expresión. BeginUndoScope (bstrUndoScopeName)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
bstrUndoScopeName	Obligatorio	String	Nombre del ámbito; podría aparecer en la interfaz de usuario de Visio.

Valor devuelto

Long

Comentarios

Si necesita saber si los eventos que recibe son el resultado de una operación determinada que ha iniciado, use los métodos BeginUndoScope y EndUndoScope para encapsular la operación. En los controladores de eventos, utilice la propiedad IsInScope para probar si el identificador de ámbito devuelto por el método BeginUndoScope es parte del contexto actual. Asegúrese de borrar el identificador de ámbito que almacenó de la propiedad BeginUndoScope cuando reciba el evento ExitScope con ese identificador.

Debe igualar las llamadas al método BeginUndoScope con las llamadas al método EndUndoScope. Si llama al método BeginUndoScope, debería llamar al método EndUndoScope en cuanto haya finalizado las acciones que constituyen el ámbito. Por otra parte, si bien las acciones con varios documentos deberían ser estables dentro de un solo ámbito, cerrar un documento puede tener el efecto secundario de borrar la información de deshacer para el ámbito abierto actualmente, así como el de borrar las pilas de deshacer y rehacer. Si esto sucede, pasar bCommit = False a EndUndoScope no restaura la información de deshacer.

También puede utilizar los métodos BeginUndoScope y EndUndoScope para agregar a la secuencia de deshacer de Microsoft Office Visio una acción definida por un complemento. Esto resulta útil si está trabajando en escenarios sin modo en los que el agente de inicio forma parte de la interfaz de usuario de un complemento o de una acción sin modo creada mediante programación.

Nota:

La mayoría de las acciones de Visio ya están encapsuladas en ámbitos de deshacer internos, por lo que los complementos que se ejecutan en la aplicación no necesitan llamar a este método.

Si la solución de Visual Studio incluye la referencia Microsoft.Office.Interop.Visio , este método se asigna a los tipos siguientes:

• Microsoft.Office.Interop.Visio.IVApplication.BeginUndoScope(string)

Ejemplo:

Este ejemplo muestra cómo utilizar el método BeginUndoScope para iniciar una transacción que tiene un identificador de ámbito único para una instancia de Visio.

 
Private WithEvents vsoApplication As Visio.Application  
Private lngScopeID As Long 
 
Public Sub BeginUndoScope_Example()  
 
    Dim vsoShape As Visio.Shape  
 
    'Set the module-level application variable to  
    'trap application-level events.  
    Set vsoApplication = Application  
 
    'Begin a scope and set the module-level scope ID variable.  
    lngScopeID = Application.BeginUndoScope("Draw Shapes")  
 
    'Draw three shapes.  
    Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1)  
    ActivePage.DrawOval 3, 4, 4, 3  
    ActivePage.DrawLine 4, 5, 5, 4  
 
    'Change a cell to trigger the CellChanged event.  
    vsoShape.Cells("Width").Formula = 5  
 
    'End and commit this scope.  
    Application.EndUndoScope lngScopeID, True 
 
 End Sub   
 
 Private Sub vsoApplication_CellChanged(ByVal Cell As IVCell)  
 
    'Check to see if this cell change is the result of something  
    'happening within the scope.  
    If vsoApplication.IsInScope(lngScopeID) Then  
        Debug.Print Cell.Name & " changed in scope "; lngScopeID  
    End If   
 
End Sub   
 
Private Sub vsoApplication_EnterScope(ByVal app As IVApplication, _  
    ByVal nScopeID As Long, _  
    ByVal bstrDescription As String)  
 
    If vsoApplication.CurrentScope = lngScopeID Then  
        Debug.Print "Entering my scope " & nScopeID  
    Else  
        Debug.Print "Enter Scope " & bstrDescription & "(" & nScopeID & ")"  
    End If  
  
End Sub   
 
Private Sub vsoApplication_ExitScope(ByVal app As IVApplication, _  
    ByVal nScopeID As Long, _  
    ByVal bstrDescription As String, _  
    ByVal bErrOrCancelled As Boolean)  
 
    If vsoApplication.CurrentScope = lngScopeID Then  
        Debug.Print "Exiting my scope " & nScopeID  
    Else  
        Debug.Print "Exit Scope " & bstrDescription & "(" & nScopeID & ")"  
    End If   
 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.