Minimixed Window

[manoj_th]

Hello Sir,

I need a file to be opened in a minimized window.
Is that require VBA? If yes, Can any one please provide the code.
Thanks in advance.

Manoj

 

[Ramesh]

In the workbook, that you would like to open in minimized state write the following code in open event of the workbook:

Private Sub Workbook_Open()
    ActiveWindow.WindowState = xlMinimized
End Sub

 

[manoj_th]

In the workbook, that you would like to open in minimized state write the following code in open event of the workbook:

Private Sub Workbook_Open()
    ActiveWindow.WindowState = xlMinimized
End Sub

thanks,
but I need the file to open as the size of calculator

 

[Ramesh]

Try this..it will resize the window

Private Sub Workbook_Open()
    With ActiveWindow
        .WindowState = xlNormal
        .Height = 400
        .Width = 500
        .Left = .Height / 2
        .Top = .Width / 2
    End With
End Sub

 

[Ramesh]

If you would like the opened workbook to open in the center of the screen, then modify your code as given below:

Private Sub Workbook_Open()
    With ActiveWindow
        .WindowState = xlNormal
        .Height = 400
        .Width = 500
        .Left = (Application.UsableWidth * 0.25) + 1
    End With
End Sub

 

[Deepak]

Check this..

http://excelribbon.tips.net/T010939_Setting_Program_Window_Size_in_a_Macro.html