Visio (Pages.CellChanged 事件)
會在文件儲存格中的值有所變更之後發生。
語法
運算式。CellChanged (儲存格)
表達 代表 Pages 物件的變數。
參數
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
儲存格 | 必要 | [IVCELL] | 值已變更的儲存格。 |
註解
如果您是使用 Microsoft Visual Basic 或 Visual Basic for Applications (VBA),則本主題中的語法會描述有效處理事件的常用方式。
如果您想要建立自己的 Event 物件,請使用 Add 或 AddAdvise 方法。
若要建立可以執行附加元件的 Event 物件,可使用 Add 方法,因為它可適用於 EventList 集合。
若要建立用於接收通知的 Event 物件,則使用 AddAdvise 方法。
若要尋找您要建立之事件的事件代碼,請參閱 事件代碼。
注意事項
使用 VBA WithEvents 變數來接收 CellChanged 事件。
基於效能考量,Document 物件的事件集並不包含 CellChanged 事件。 若要從Document物件 (接收CellChanged事件,以及 VBA 專案) 中的ThisDocument物件,您必須使用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 支援與意見反應。