Windowsオブジェクト｜ExcelマクロVBA入門

最終更新日：2019-07-15

第54回.Windowsオブジェクト

Windowオブジェクトは、ブックやシートの見方を変えることのできるもので、
エクセルで「ウインドウ」と表現されているものをマクロVBAで扱う時のオブジェクトになります。
エクセルのリボンでは「新しいウインドウ」や「ウインドウ枠」といった言葉で表現されているものです。
手操作ではなんとなく理解して使っていても、その実態はかなり理解しづらいものとなっています。
スクロールバー、枠線などの多くのワークシート関連の見た目は、実際にはウィンドウのプロパティです。

Windowオブジェクトについて少し詳しく見てみましょう。
Window オブジェクトの集まりが、 Windowsコレクションであり、
Windowオブジェクトは、Windowsコレクションのメンバーです。

Windowの指定方法

Windows("ウインドウ名")

ウインドウ名で指定されるウインドウ

Windows(インデックス)

インデックス（ウインドウの順番）で指定されるウインドウ

ActiveWindow

アクティブウインドウ

ウインドウ名は、ワークブックに１つだけウインドウが存在している場合は、
ウインドウ名 = ワークブック名
複数ウインドウが存在している場合は、
ウインドウ名 = ワークブック名:ウインドウ番号
このように指定します。

Windowオブジェクトデータ型

Window
つまり、
Dim 変数 As Window
のように使います。
ただし、
Windowオブジェクトを変数に入れて使うようなマクロVBAを書くことはほとんどないでしょう。

Windowオブジェクトのプロパティとメソッド

Windowオブジェクトに含まれるプロパティ・メソッドは、非常にたくさんあります。
Windowのプロパティ、メソッドの一覧

エクセルの基本である、Windowオブジェクトのプロパティ、メソッドの一覧です。覚えるというより、必要に応じて調べて使うものになります。Windowオブジェクトのプロパティ一覧 Windowオブジェクトのメソッド一覧名前説明 Activate ウィンドウをZオーダーの前面に移動します。

Windowオブジェクトの、プロパティとメソッドの、ごく一部で良く使うものを紹介します。

プロパティ	DisplayGridlines	枠線を表示
	DisplayHeadings	行と列の両方の見出しを表示
	DisplayHorizontalScrollBar	水平スクロールバー
	DisplayVerticalScrollBar	垂直スクロールバー
	DisplayWorkbookTabs	シート見出しを表示
	FreezePanes	分割ウィンドウ枠を固定します
	Zoom	表示サイズを、パーセント単位
メソッド	Activate	アクティブにする
	Close	閉じる
	SmallScroll	行または列数分だけウィンドウをスクロールします
	LargeScroll	ページ数分だけウィンドウをスクロールします
	NewWindow	新しいウィンドウ、またはウィンドウのコピーを作成

今までに出てきたのは、Activateくらいです。

Windowオブジェクトの解説

恐らく、WorkbookオブジェクトやWorkSheetオブジェクトとの違いに戸惑うのではないかと思われます。
これは、エクセルの基本操作で、複数ウインドウを使う事が少ない事とも関係していると思います。
上で紹介した、プロパティ・メソッドは、Windowオブジェクトのメンバーであり、
WorkbookオブジェクトやWorkSheetオブジェクトには存在していません。

つまり、スクロールバーや枠線は、ブックやシートに設定するものではなく、
Windowオブジェクトに設定するものだということです。

例えば

DisplayGridlines　・・・　枠線を表示

これは、ワークシートでもなければ、ワークブックの情報でもないのです。
従って、「新しいウインドウを開く」では、その情報は引き継がれません。

部屋があり、その窓（ウインドウ）から部屋を見ていると考えて下さい。
部屋の上の方を見ているとか、窓に目盛をつけて見易くしているとか、
それらは、部屋の中には一切関係していないのです。
部屋の中は、実際には何も変化していないのです。
別の窓から覗けば、部屋の中は同じでも、別の見え方になるということです。

マクロVBAでは、Windowのメソッドを使う事はほとんどないと思います。
プロパティについては、
VBAで新規ブックや新規シートを作成した時に設定する必要になる事はあるでしょう。

Windowオブジェクトの使用例


  
    
      Dim wd As Window

Set wd = ActiveWindow

With wd

　　.DisplayGridlines = False '枠線を非表示

　　.DisplayHeadings = False '行と列の両方の見出しを非表示

　　.DisplayHorizontalScrollBar = False '水平スクロールバーを非表示

　　.DisplayVerticalScrollBar = False '垂直スクロール バーを非表示

　　.DisplayWorkbookTabs = False 'シート見出しを表示

　　.FreezePanes = False '分割ウィンドウ枠を固定解除

　　Range("C3").Select

　　.FreezePanes = True 'C3セルでウィンドウ枠を固定

　　.Zoom = 75 '表示サイズを75%

End With