Application Size and Location

  • Thread starter Thread starter Jeff Harbin
  • Start date Start date
J

Jeff Harbin

Can someone get me started on the general code for changing the size and
location of the entire Excel application including a worksheet?

What I want to do is have the application window shrink down to the size of
a single enlarged cell in the active workbook where I will then update
messages as the program runs.
 
The application object has Top, left, height and width properties

Sub AAABB()
Application.Top = 20
Application.Left = 30
Application.Height = 150
Application.Width = 150
End Sub

as as an example. The application needs to be a window at the time

Sub AAABB()
Application.WindowState = xlNormal
Application.Top = 20
Application.Left = 30
Application.Height = 150
Application.Width = 150
End Sub
 
Sub SetAppWindowState()
'' Sets Excel to the left side of the screen.

With Application
.WindowState = xlNormal
.Left = 0
.Top = 0
.Width = 400
.Height = 630
End With

End Sub

HTH
Paul
 
Back
Top