Center application : Application Windows « Application « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Application
3. Application Windows

Center application

 
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

 

Related examples in the same category