Evento Shape.CellChanged (Visio)
Ocorre após o valor de uma célula de um documento ser alterado.
Sintaxe
expressão. CellChanged (célula)
Expressão Uma variável que representa um objeto Shape .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Cell | Obrigatório | [IVCELL] | A célula cujo valor foi alterado. |
Comentários
Se estiver usando o Microsoft Visual Basic ou o Visual Basic for Applications (VBA), a sintaxe deste tópico descreverá uma maneira comum e eficiente de lidar com eventos.
Se você quiser criar seus próprios objetos Event , use o método Add ou AddAdvise .
Para criar um objeto Event que execute um complemento, use o método Add, uma vez que ele aplica-se à coleção EventList.
Para criar um objeto Event que receba notificação, use o método AddAdvise.
Para localizar um código de evento que você deseja criar, consulte Códigos de eventos.
Observação
Use variáveis WithEvents do VBA para afundar o evento CellChanged .
Para obter considerações sobre o desempenho, o conjunto do evento do objeto Document não inclui o evento CellChanged. Para afundar o evento CellChanged de um objeto Document (e o objeto ThisDocument em um projeto VBA), você deve usar o método AddAdvise .
Exemplo
Este módulo do VBA mostra como usar o evento CellChanged para capturar alterações nas células de uma 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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.