Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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