エクセルＶＢＡのウィンドウサイズ変更でエラー

質問

エクセル２０００で、ファイルを二つのウィンドウに表示させて作業を行うのに、Auto_Openのマクロでサイズの調整を行っていましたが、ある日を境にエラーが出て動かなくなってしまいました。エラー発生前に、特別な事を行ったという自覚はありません。
マクロの内容は、次の通りです（抜粋）
Dim fname1, fname2, windowname1, windowname2 As Variant

Sub Auto_Open()
fname1 = ActiveWorkbook.Name
windowname1 = fname1
Windows(windowname1).Activate
With ActiveWindow
.Top = 4
.Left = 4
.Width = 630
.Height = 460
End With

（省略、２つ目のファイルを開いて、上と同様にウィンドウ２のサイズ設定）

End Sub

エラーの内容は次の通りです
実行時エラー１００４
Window classのTOPプロパティを設定できません。
TOPの所をコメントにして実行させると、次のLeftでやはりエラーとなります。

この日以降ずっと駄目なので、このマクロの部分は機能しないようにして今日に至っております。
原因と対処の仕方を教えて下さい。

回答No.2

nishi6 · ベストアンサー

＞WindowState = xlNormal の意味とか、必要性が分かりません。
＞後学の為に教えていただけると幸いです。

Excelウィンドウの状態は、XlWindowState クラスの
　xlMaximized：最大化されている
　xlMinimized：最小化されている
　xlNormal 　：最大化も最小化もされていない
の３つの状態があります。

Helpには、オブジェクトがWindowの場合の
　Topプロパティは
　　『ウィンドウが最大化されている状態のときは、このプロパティに設定することができません』
　Widthプロパティは
　　『ウィンドウが最大化または最小化されている状態のときは、このプロパティに設定することができません。』
とあります。

従って、エラーが発生したのは、途中で最大化されたwindowに変わったためではないでしょうか。

ウィンドウの状態を調べて、それにあったプログラムを書くのではなく、無条件にxlNormalの設定をして
Top、Left、Width、Heightプロパティを操作しているのが『.WindowState = xlNormal』の意味でしょう。

Help(Excel97)の使用例には、下の様に書かれています。
　※このHelpは、表示→オブジェクトブラウザ　でTopを検索し、
　　検索結果の、クラス=Window、メンバ=Top のHelpを見ています。

With ActiveWindow
　　.WindowState = xlNormal
　　.Top = 1
　　.Left = 1
　　.Height = Application.UsableHeight
　　.Width = Application.UsableWidth
End With

お礼

分かりました。
ありがとうございました。

回答No.1

nishi6

WindowStateプロパティにxlNomalをセットする必要がある？

.Top = 4 の前に、

.WindowState = xlNormal

を追記します。

お礼

動くようになりました。ありがとうございました。
キーボードマクロをいじって作成したマクロで、作成後しばらくは動いていたのに妙なものですね。
教えていただいて、ＶＢＡのヘルプファイルを見てみましたが、
.WindowState = xlNormal
の意味とか、必要性が分かりません。
後学の為に教えていただけると幸いです。