VBAのWatchesオブジェクト

Watchesコレクション

Watchesコレクションについての解説になります。

Applicationオブジェクト
- Watchesコレクション
  - Watchオブジェクト

Watchesコレクションとは

Watchesコレクションは、指定されたアプリケーションにあるすべての Watch オブジェクトのコレクションです。

Watches コレクションを取得するには、Application オブジェクトの Watches プロパティを使用します。次の使用例は、Add メソッドを使用して新しい Watch オブジェクトを作成します。次の使用例は、セル A3 に合計の数式を作成し、このセルをウォッチ機能に追加します。


Sub AddWatch()

    With Application
        .Range("A1").Formula = 1
        .Range("A2").Formula = 2
        .Range("A3").Formula = "=Sum(A1:A2)"
        .Range("A3").Select
        .Watches.Add Source:=ActiveCell
    End With

End Sub

Watches コレクションの Delete メソッドを使用すれば、個々のセルをウォッチ機能から削除することを指定できます。次の使用例は、ブック 1 のワークシート 1 のセル A3 をウォッチウィンドウから削除します。次の使用例では、Watch オブジェクトを追加した前の使用例を使って、ブック 1 のワークシート 1 のセル A3 が追加されているものとします。


Sub DeleteAWatch()
    Application.Watches(Workbooks("Book1").Sheets("Sheet1").Range("A3")).Delete
End Sub

Watches コレクションの Delete メソッドを使用して、ウォッチウィンドウからすべてのセルを削除することも指定できます。次の使用例は、ウォッチウィンドウからすべてのセルを削除します。


Sub DeleteAllWatches()

    Application.Watches.Delete

End Sub

Watchesプロパティ

シート見出しの色を設定するサンプルコード

こちらでは、シート見出しの色を設定するマクロになります。


Sub sample()

    Sheets("Sheet1").Watches.ColorIndex = 3

End Sub

実行結果

解説

こちらのマクロは、WatchesオブジェクトのColorIndexプロパティを利用しています。

Watchesオブジェクトの親オブジェクト一覧

親オブジェクト名	内容
Chartオブジェクト	ブック内のグラフを表します。ChartObject オブジェクトに含まれている埋め込みグラフか、独立したグラフシートのどちらかのグラフです。
Worksheetオブジェクト