Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Show desktop
Is there a way to duplicate programatically the "show desktop"
shortcut on the quick launch toolbar |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Show desktop
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 wrote in message ... Is there a way to duplicate programatically the "show desktop" shortcut on the quick launch toolbar |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Show desktop
"Bernie Deitrick" <deitbe @ consumer dot org wrote...
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Show linked cell alone somwhere on the desktop | New Users to Excel | |||
Browse desktop | Excel Discussion (Misc queries) | |||
Desktop Shortcut | New Users to Excel | |||
File from Desktop | Setting up and Configuration of Excel | |||
Excel on desktop | Excel Discussion (Misc queries) |