すべてのウィンドウを最小化し、元に戻す
Windowsの最小化操作を呼び出し、別のSubで元の配置へ戻すよう要求します。
実行前に確認
- Excel以外のウィンドウにも影響します。最小化後に別操作をすると、すべてが同じ状態へ復元されるとは限りません。
- 公式仕様とコードを照合した例です。Excel実機での実行は未検証です。業務ブックではなくコピーで試してください。
1サンプルコード
Option Explicit
Sub PracticeAdvanced8009()
If MsgBox("デスクトップのウィンドウを最小化しますか？", _
vbYesNo + vbQuestion + vbDefaultButton2) <> vbYes Then Exit Sub
On Error GoTo Failed
CreateObject("Shell.Application").MinimizeAll
Exit Sub
Failed:
MsgBox "最小化できません: " & Err.Description
End Sub
Sub RestoreWindows8009()
On Error GoTo Failed
CreateObject("Shell.Application").UndoMinimizeALL
Exit Sub
Failed:
MsgBox "復元できません: " & Err.Description
End Sub図で見る操作の流れ
イメージ図準備、実行する操作、確認する結果の順で示しています。
準備
Windows版向けです。復元用RestoreWindows8009も同じ標準モジュールに貼り付けます。
操作
Windowsの最小化操作を呼び出し、別のSubで元の配置へ戻すよう要求します。
結果
最小化できるウィンドウが最小化されます。復元用SubでWindowsへ直前の最小化の取り消しを要求します。
Excel以外のウィンドウにも影響します。最小化後に別操作をすると、すべてが同じ状態へ復元されるとは限りません。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
Windows版デスクトップExcelの練習用ブックを.xlsmで保存し、Alt＋F11→［挿入］→［標準モジュール］へ、この例だけを貼り付けます。
- 2
Windows版向けです。復元用RestoreWindows8009も同じ標準モジュールに貼り付けます。
- 3
PracticeAdvanced8009を実行します。戻すときはタスクバーからExcelへ戻り、Alt＋F8でRestoreWindows8009を実行します。
- 4
最小化できるウィンドウが最小化されます。復元用SubでWindowsへ直前の最小化の取り消しを要求します。