InvisibleApp.CellChanged イベント (Visio)

図面のセルの値が変更された後に発生します。

構文

式。CellChanged (セル)

式InvisibleApp オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Cell	必須	[IVCELL]	値が変更されたセルです。

注釈

Microsoft Visual Basic または Visual Basic for Applications (VBA) を使用している場合、このトピックの構文を使用して、イベントを一般的な方法で効率的に処理できます。

独自の Event オブジェクトを作成する場合は、Add メソッドまたは AddAdvise メソッドを使用します。

アドオンを実行する Event オブジェクトを作成するには、EventList コレクションに対して Add メソッドを使用します。

通知を受け取る Event オブジェクトを作成するには、AddAdvise メソッドを使用します。

作成するイベントのイベント コードについては、「イベント コード」を参照してください。

注:

CELLChanged イベントをシンクするには、VBA WithEvents 変数を使用します。

性能を上げるために、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 のサポートおよびフィードバックを参照してください。