Evento Shape.CellChanged (Visio)
Se produce después de que cambie el valor de una celda de un documento.
Sintaxis
expresión. CellChanged (celda)
Expresión Variable que representa un objeto Shape .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Cell | Obligatorio | [IVCELL] | Celda cuyo valor ha cambiado. |
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.
Nota:
Use variables WithEvents de VBA para recibir el evento CellChanged .
Por motivos de rendimiento, el conjunto de eventos del objeto Document no incluye el evento CellChanged. Para recibir el evento CellChanged desde un objeto Document (y el objeto ThisDocument en un proyecto VBA), debe usar el método AddAdvise .
Ejemplo:
Este módulo de VBA muestra cómo utilizar el evento CellChanged para interceptar los cambios en las celdas de una forma.
Private WithEvents vsoApplication As Visio.Application
Public Sub CellChanged_Example()
Dim vsoShape As Visio.Shape
'Set a module-level variable to trap application-level events.
Set vsoApplication = Application
'Draw a shape.
Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1)
'Change a cell (to trigger a CellChanged event).
vsoShape.Cells("Width").Formula = 5
End Sub
Private Sub vsoApplication_CellChanged(ByVal vsoCell As IVCell)
Debug.Print vsoCell.Shape.Name & " " & vsoCell.Name & " changed to =" & vsoCell.Formula
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.