Reply To: Komplex Test

[tom]

Sub Workbook_Open()

Call ScreenResolution

With ActiveWindow

.WindowState = xlNormal

If lHsize < 2000 Then

.Application.Width = 800

.Application.Height = 800

.Application.Left = 50

.Application.Top = 50

Else

.Application.Width = 1024

.Application.Height = 1024

.Application.Left = 150

.Application.Top = 150

End If

End With

ActiveWindow.Zoom = 145

End Sub

• This reply was modified 3 months, 1 week aktiv. by  tom.
• This reply was modified 3 months, 1 week aktiv. by  tom.