Shape.CellChanged 事件 (Visio)

在文档中单元格内的值更改之后，发生此事件。

语法

表达式。CellChanged (Cell)

表达 一个代表 Shape 对象的变量。

参数

名称	必需/可选	数据类型	说明
Cell	必需	[IVCELL]	值已更改的单元格。

备注

如果您使用 Microsoft Visual Basic 或 Visual Basic for Applications (VBA)，则此主题中的语法描述的是一种通用而有效的事件处理方法。

如果要创建自己的 Event 对象，请使用 Add 或 AddAdvise 方法。

若要创建可运行加载项的 Event 对象，请使用 Add 方法，因为它适用于 EventList 集合。

若要创建可接收通知的 Event 对象，请使用 AddAdvise 方法。

若要查找要创建的事件的事件代码，请参阅事件代码。

注意

使用 VBA WithEvents 变量接收器 CellChanged 事件。

出于性能方面的考虑，Document 对象的事件集不包含 CellChanged 事件。 若要从 Document 对象 (和 VBA 项目中的 ThisDocument 对象) 接收器 CellChanged 事件，必须使用 AddAdvise 方法。

示例

此 VBA 模块说明了如何使用 CellChanged 事件来捕获形状单元格的更改。

 
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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。