Shape.CellChanged-Ereignis (Visio)

Tritt ein, nachdem sich der Wert in einer Zelle eines Dokuments geändert hat.

Syntax

Ausdruck. CellChanged (Cell)

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Cell Erforderlich [IVCELL] Die Zelle, deren Wert sich geändert hat.

HinwBemerkungeneise

Wenn Sie Microsoft Visual Basic oder Visual Basic für Applikationen (VBA) verwenden, beschreibt die Syntax in diesem Thema eine gängige und effiziente Methode zum Verarbeiten von Ereignissen.

Wenn Sie eigene Event-Objekte erstellen möchten, verwenden Sie die Add- oder AddAdvise-Methode .

Verwenden Sie zum Erstellen eines Event-Objekts, das ein Add-On ausführt, die Add-Methode der EventList-Auflistung.

Verwenden Sie zum Erstellen eines Event-Objekts, das eine Benachrichtigung empfängt, die AddAdvise-Methode.

Informationen zum Suchen eines Ereigniscodes für das Ereignis, das Sie erstellen möchten, finden Sie unter Ereigniscodes.

Hinweis

Verwenden Sie VBA WithEvents-Variablen , um das CellChanged-Ereignis zu senken.

Die Ereignisgruppe des Document-Objekts schließt das CellChanged-Ereignis aus Leistungsgründen nicht ein. Um das CellChanged-Ereignis aus einem Document-Objekt (und das ThisDocument-Objekt in einem VBA-Projekt) zu senken, müssen Sie die AddAdvise-Methode verwenden.

Beispiel

Dieses VBA-Modul zeigt die Verwendung des CellChanged-Ereignisses zum Auffangen von Änderungen an den Zellen eines Shapes.

 
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.