Bring excel window to normal size

**ljoseph** · 09-11-2010, 08:19 AM

Hi,
I have a excel macro to control an external progrm. When macro starts that external program, couple of windows related to external program also opens.
I have the following code to minimize these windows:

CreateObject("Shell.Application").MinimizeAll

But, this will minimize my excel sheet also. Is there a way to bring the excel to the normal size .. I mean to the size it was before executing the above command.

**Marcol** · 09-11-2010, 08:33 AM

Try this, take your pick.

Sub Macro1()
    Application.WindowState = xlMinimized
End Sub

Sub Macro2()
    Application.WindowState = xlMaximized
End Sub

Sub Macro3()
    Application.WindowState = xlNormal
End Sub

**ljoseph** · 09-11-2010, 09:24 AM

Originally Posted by Marcol

Try this, take your pick.

Sub Macro1()
    Application.WindowState = xlMinimized
End Sub

Sub Macro2()
    Application.WindowState = xlMaximized
End Sub

Sub Macro3()
    Application.WindowState = xlNormal
End Sub

Hi,
This is not helping me. I tried like this:

Sub exc()
CreateObject("Shell.Application").MinimizeAll
AppActivate "Microsoft Excel"
ActiveWindow.WindowState = xlNormal
Application.WindowState = xlNormal

End Sub

My idea is to minimize all windows except the excel window from which I am running the macro.
Thanks
Leyo

**royUK** · 09-11-2010, 09:13 AM

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Added this time

**Marcol** · 09-11-2010, 11:19 AM

Try this

Sub ShellMinimizeAllExceptXL()
'Minimise all Windows Except This Workbook
    Dim objShell As Object

    Set objShell = CreateObject("Shell.Application")
    objShell.MinimizeAll
    Application.Wait (Now + TimeValue("0:00:02"))
    Application.WindowState = xlNormal
    Set objShell = Nothing
End Sub

P.S.
Please don't quote whole posts in your replies, the moderators don't like it...