Show desktop

[James]

Is there a way to duplicate programatically the "show desktop"
shortcut on the quick launch toolbar

 

[Bernie Deitrick]

James,

You can use a macro, tied to a button.

You will need to set a reference to "Microsoft Shell Controls and Automation" which is the file
Shell32.dll.

Sub ShowDesktop()
Dim objShell As Shell
Set objShell = New Shell
objShell.MinimizeAll
Set objShell = Nothing
End Sub

Sub UndoShowDesktop()
Dim objShell As Shell
Set objShell = New Shell
objShell.UndoMinimizeALL
Set objShell = Nothing
End Sub

The UndoShowDesktop will undo the first one programatically....

HTH,
Bernie
MS Excel MVP

 

[Harlan Grove]

You can use a macro, tied to a button.

You will need to set a reference to "Microsoft Shell Controls and
Automation" which is the file Shell32.dll.

....

Or you could just run the "Show Desktop.scf" file directly.

Sub toggledesktop()
Shell Environ("COMSPEC") & " /c """ & Environ("APPDATA") & _
"\Microsoft\Internet Explorer\Quick Launch\Show Desktop.scf"""
End Sub

Run it once to minimize all windows and show the desktop, run it again
to restore all windows. Or click on the desktop icon in the Quick
Launch portion of the task bar.