Allen
Met onderstaande stukje code wil ik de zoom van het scherm auto aanpassen (16:9 en 4:3)
Ik roep deze sub op in Workbook_open event, maar toch doet deze niets.
Geeft fout 424, object vereist...Dim as Object?
Met onderstaande stukje code wil ik de zoom van het scherm auto aanpassen (16:9 en 4:3)
Ik roep deze sub op in Workbook_open event, maar toch doet deze niets.
Geeft fout 424, object vereist...Dim as Object?
Code:
Sub Beeld_aanpassen()
Application.ScreenUpdating = False
'Deze geeft fout 424
'If Sheet.Unprotect = True Then
'Dim ZoomLevel As Double
'Dim ws As Worksheet
'If ActiveWindow.Width / ActiveWindow.Height > 1.5 Then ZoomLevel = 102 Else: ZoomLevel = 72.5
'For Each ws In Worksheets
'ws.Select
'ActiveWindow.Zoom = ZoomLevel
'Next ws
'End If
'Deze gebruik ik voorlopig
If ActiveWindow.Width / ActiveWindow.Height > 1.5 Then ActiveWindow.Zoom = 102 Else: ActiveWindow.Zoom = 72.5
Application.ScreenUpdating = True
End Sub