Evento Application.PageAdded (Visio)
Se produce después de agregarse una nueva página a un documento.
Sintaxis
expresión. PageAdded (Page)
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Page | Obligatorio | [IVPAGE] | Página que se ha agregado. |
Comentarios
Si utiliza Microsoft Visual Basic o Visual Basic para Aplicaciones (VBA), la sintaxis de este tema describe una forma común y eficaz de controlar los eventos.
Si desea crear sus propios objetos Event , use el método Add o AddAdvise .
Para crear un objeto Event que ejecute un complemento, use el método Add, ya que se aplica a la colección EventList.
Para crear un objeto Event que reciba notificaciones, use el método AddAdvise.
Para encontrar un código de evento para el evento que desea crear, vea el tema sobre los códigos de evento.
Ejemplo:
En este ejemplo se muestra cómo crear un módulo de clase para controlar los eventos desencadenados por un objeto de origen en Microsoft Visio, como el objeto Document. El módulo se compone de la función VisEventProc, que usa un bloque Select Case para comprobar la existencia de tres eventos: DocumentSaved, PageAdded y ShapesDeleted. Los demás eventos se procesan en el bloque predeterminado Case Else. Cada bloque Case crea una cadena ( strMessage ) que contiene el nombre y el código de evento del evento que se ha desencadenado. Finalmente, la función muestra la cadena en la ventana Inmediato.
Copie este código de ejemplo en un nuevo módulo de clase de VBA o Visual Basic y asígnele el nombre clsEventSink. Entonces, podrá utilizar un módulo receptor de eventos para crear una instancia de la clase clsEventSink y los objetos Event que envían notificaciones del desencadenamiento de eventos a la instancia de la clase. Para ver cómo crear un módulo receptor de eventos, vea el ejemplo del método AddAdvise.
Implements Visio.IVisEventProc
'Declare visEvtAdd as a 2-byte value
'to avoid a run-time overflow error
Private Const visEvtAdd% = &H8000
Private Function IVisEventProc_VisEventProc( _
ByVal nEventCode As Integer, _
ByVal pSourceObj As Object, _
ByVal nEventID As Long, _
ByVal nEventSeqNum As Long, _
ByVal pSubjectObj As Object, _
ByVal vMoreInfo As Variant) As Variant
Dim strMessage As String
'Find out which event fired
Select Case nEventCode
Case visEvtCodeDocSave
strMessage = "DocumentSaved (" & nEventCode & ")"
Case (visEvtPage + visEvtAdd)
strMessage = "PageAdded (" & nEventCode & ")"
Case visEvtCodeShapeDelete
strMessage = "ShapesDeleted(" & nEventCode & ")"
Case Else
strMessage = "Other (" & nEventCode & ")"
End Select
'Display the event name and the event code
Debug.Print strMessage
End Function
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.