パソコン活用研究5番街（Visual Basic、Excel(VBA)、BASIC　プログラミング研究）

ブック（シート）の表示位置、サイズの変更

１　ブックの表示位置、サイズの設定
ブックの表示位置、サイズを表すプロパティは以下のように
Ｔｏｐ（ＥＸＣＥＬのＷｉｎｄｏｗ内での縦の位置）、Ｌｅｆｔ（ＥＸＣＥＬのｗｉｎｄｏｗ内での横位置）
Ｈｅｉｇｈｔ（ブックの高さ）、Ｗｉｄｔｈ（ブックの幅）
です。

（１）　ブックの表示位置、サイズの設定
ただし、ブックを表すＷｏｒｋｂｏｏｋオブジェクトにはＴｏｐ，Ｌｅｆｔ，Ｗｉｄｔｈ，Ｈｅｉｇｈｔといったプロパティが
ありません。これらはＷｉｎｄｏｗオブジェクトに属するプロパティなので、ブックの位置、サイズを指定
するには次のように記述します。

Workbooks("Book1.xls").Windows(1).Top=0
Workbooks("Book1.xls").Windows(1).Left=0
Workbooks("Book1.xls").Windows(1).Height=100
Workbooks("Book1.xls").Windows(1).Width=200

あるいは、次のような記述もできます。
ブックをＥＸＣＥＬのｗｉｎｄｏｗ内の左上隅に表示する
Sub SET_Book( )
Workbooks("Book1.xls").activate
ActiveWindow.Top=0
ActiveWindow.Left=0
End Sub

なお、Ｗｉｎｄｏｗオブジェクトについては後で説明します。

（２）　ブックを消す
ＶＩｓｉｂｌｅプロパティで非表示にする
Workbooks("Book1.xls").Windows(1).Visible=False

あるいは、ＥＸＣＥＬのＷｉｎｄｏｗに表示されない領域に位置を変更するという方法もあります
Workbooks("Book1.xls").Windows(1).Top= -Workbooks("Book1.xls").Windows(1).Height
Workbooks("Book1.xls").Windows(1).Left= -Workbooks("Book1.xls").Windows(1).Width

（３）　ＥＸＣＥＬのｗｉｎｄｏｗの枠内いっぱいに表示する
ＥＸＣＥＬのＷｉｎｄｏｗの枠内のサイズは
Application.UsableHeight
Application.UseableWidth
で求められます。
従って、枠内いっぱいにブックを表示するには以下のようにします

Workbooks("Book1.xls").Windows(1).Top=0
Workbooks("Book1.xls").Windows(1).Left=0
Workbooks("Book1.xls").Windows(1).Height= Application.UseableHeight
Workbooks("Book1.xls").Windows(1).Width= Application.UseableWidth

（４）　最大表示、アイコン化
ＷｉｎｄｏｗＳｔａｔｅプロパティを使って、ブックを最大表示、アイコン化することができます。
ブックをアイコン化するには次のように記述します
Workbooks("Book1.xls").Windows(1).WindowState = xlMinimized

同様に通常表示は　xlNormal　　最大表示は　xlMaximized　を指定します
　

２　複数のブックの処理

複数のブックを開いている時に、開いているブックの数を取得するには　Ｃｏｕｎｔプロパティを使用して
Workbooks.Count
で求められます。

従って、全てのブックをアイコン化するなら以下のように記述します。
For i=1 To Workbooks.Count
Workbooks(i).Windows(1).WindowState = xlMinimized
Next

また、Ｂｏｏｋ１．ｘｌｓだけを表示して他のブックをみなアイコン化したいなら、以下のようにします
For i=1 To Workbooks.Count
If StrComp("Book1.xls",Workbooks(i).Name, 1) <>0 Then
Workbooks(i).Windows(1).WindowState = xlMinimized
End If
Next

ＳｔｒＣｏｍｐは文字列を比較する関数で、文字列が等しければ０を返します。
ちなみに、最初の文字列＞２番目の文字列なら１、その逆なら−１を返します

３　Ｗｉｎｄｏｗオブジェクトとブック（シート）の整列
Ｗｉｎｄｏｗオブジェクトには、ブック（Ｗｏｒｋｂｏｏｋオブジェクト）に属するものと、ＥＸＣＥＬ本体（ａｐｐｌｉｃａｔｉｏｎ
オブジェクト）に属するものがあります。

EXCEL本体に属するＷｉｎｄｏｗオブジェクトは
Application.Windows(1)
というように記述しますが、通常はApplicationを省略します。
従って、いきなり、Windows（1）　のような書き方をすると、これはＡｐｐｌｉｃａｔｉｏｎオブジェクトのＷｉｎｄｏｗ
オブジェクトになります。
今、３つのブックが開かれている場合、ＷｉｎｄｏｗオブジェクトのＩｎｄｅｘは３まで存在します。
つまり、Windows（3）　までが存在します。
アクテイブウィンドウは常にWindows（1）になります。

ある特定のブックは通常１つしか開かれていないので、ブックに属するＷｉｎｄｏｗオブジェクトのＩｎｄｅｘは
通常１です。
例えば、Workbooks("Book1.xls").Windows(1)

さて、ＡｐｐｌｉｃａｔｉｏｎオブジェクトのＷｉｎｄｏｗオブジェクトを使って、複数のブックを少しづつ、づらして表示する
マクロは次のようになります。
Sub Arrange_Book()
For i=1 To Workbooks.Count
Windows(i).Top =i*10
Windows(i).Left = i*10
Next
End Sub


また、ブック（ウィンドウ）を整列させる専門のメソッド　Ａｒｒａｎｇｅ　がＷｉｎｄｏｗオブジェクトにあります。
Ａｒｒａｎｇｅメソッドの構文

上記マクロと同じような動作をさせるには以下のように記述します。（ちょつと結果はちがうけど）
Windows.Arrange arrangestyle:=xlCascade