VBA/Excel/Access/Word/Application/Application Windows

Center application

   <source lang="vb">

Private Sub Workbook_Open()

   Dim maxWidth As Integer
   Dim maxHeight As Integer
   Application.WindowState = xlMaximized
   maxWidth = Application.Width
   maxHeight = Application.Height
   Call CenterApp(maxWidth, maxHeight)

End Sub Sub CenterApp(maxWidth As Integer, maxHeight As Integer)

   Dim appLeft As Integer
   Dim appTop As Integer
   Dim appWidth As Integer
   Dim appHeight As Integer
   Application.WindowState = xlNormal
   appLeft = maxWidth / 4
   appTop = maxHeight / 4
   appWidth = maxWidth / 2
   appHeight = maxHeight / 2
   Application.Left = appLeft
   Application.Top = appTop
   Application.Width = appWidth
   Application.Height = appHeight

End Sub

</source>
   
  

Make sure that the scroll bars and status bar are hidden and that the formula bar is displayed:

   <source lang="vb">

Sub scroll()

   With Application
       .DisplayScrollBars = False
       .DisplayStatusBar = False
       .DisplayFormulaBar = True
   End With

End Sub

</source>
   
  

Set the window position and size

   <source lang="vb">

Sub win()

   Dim myWindow1 As Window, myWindow2 As Window
   Set myWindow1 = ActiveWindow
   Set myWindow2 = myWindow1.NewWindow
   With myWindow1
       .WindowState = xlNormal
       .Top = 0
       .Left = 0
       .Height = Application.UsableHeight
       .Width = Application.UsableWidth * 0.25
   End With
   With myWindow2
       .WindowState = xlNormal
       .Top = 0
       .Left = (Application.UsableWidth * 0.25) + 1
       .Height = Application.UsableHeight
       .Width = Application.UsableWidth * 0.75
   End With

End Sub

</source>
   
  

To change the values of the WindowState, Width, and Height properties of the Excel application window, you must explicitly reference the Application object

   <source lang="vb">

Sub changeSize()

   Application.WindowState = xlNormal
   Application.Width = 600
   Application.Height = 450
   End Sub
</source>
   
  

Zoom a form

   <source lang="vb">

Private Sub UserForm_Initialize()

   LabelZoom.Caption = ActiveWindow.Zoom

" Zoom

   With ScrollBarZoom
       .Min = 10
       .Max = 400
       .SmallChange = 1
       .LargeChange = 10
       .Value = ActiveWindow.Zoom
   End With
   

" Horizontally scrolling

   With ScrollBarColumns
       .Min = 1
       .Max = 256
       .Value = ActiveWindow.ScrollColumn
       .LargeChange = 25
       .SmallChange = 1
   End With
   

" Vertically scrolling

   With ScrollBarRows
       .Min = 1
       .Max = ActiveSheet.Rows.Count
       .Value = ActiveWindow.ScrollRow
       .LargeChange = 25
       .SmallChange = 1
   End With

End Sub

</source>
   
  

Zooming a Window and Setting Display Options

   <source lang="vb">

Sub zoom()

   ActiveWindow.Zoom = 150

End Sub

</source>