エクセル95のマクロで自動的に全画面表示したい

質問

エクセル95のマクロで質問です。
エクセルのファイルを開いた時、自動的に全画面表示にするには
Sub Auto_Open()
Application.DisplayFullScreen = True
End Sub
で、立ち上げた時自動的に全画面表示になりますよね。
これを最小化したい場合、このシート上に最小化ボタンをつけて
Sub Macro1()
Application.WindowState = xlMinimized
End Sub
というマクロを登録して最小化して、下のツールバーにアイコン化しました。
この場合ですが、次に、ツールバーのエクセルのアイコンをクリックしたとき、エクセル画面は全画面ではなくノーマルなものになってしまいます。
これを自動的に全画面表示にする場合はどうすればいいのでしょうか？

回答No.9

taisuke555 · ベストアンサー

もう一度だけ・・・

最小化マクロで、最小化が終わるまで、ループし、
最小化が終わったらフルスクリーンにもどし、マクロ終了

DoEventsを書いておけば、他の処理に影響はないと思います。（断言はできませんが）
もし、このような方法が、お好みでなければ、一度閉めて、再度質問してみてください。
（ここの質問は、もう私と、kazuhiko5681さん以外見ていないと思われます。）

Sub Macro1()
With Application
.WindowState = xlMinimized
Do While (.WindowState = xlMinimized)
DoEvents
Loop
.DisplayFullScreen = True
End With
End Sub

お礼

ありがとうございました！
上記をコピーして標準モジュールに貼り、シート上にこさえた最小化ボタンにマクロ設定しましたら完全に動きました。感激しましたねえ！
最後に、Do While、DoEvents、Loopのそれぞれの意味を教えていただけないでしょうか？

回答No.2

taisuke555

すいません。
手元にExcel95も、資料もないので確認することができません。

他の回答を待ってみてください。
何かわかりしだい回答します。

役に立たず申し訳ありません。

回答No.1

taisuke555

未確認ですが、

SUb Auto_Activate()
Application.DisplayFullScreen = True
End Sub

Auto_Activate（アクティブになった時に自動で実行するマクロ）
というのがありませんでしたっけ？
間違えていたらすみません。なければ補足してください。もっとよく調べてみます。

補足

早速ありがとうございます。
やってみましたが反応しませんでした。
自動実行をヘルプで調べると、Auto_Open、Auto_Close、Auto_Activate、Auto_Deactivate があるようなのですが。