Microsoft Office Forums - View Single Post - vba code to change word zoom level based on Display monitor being Portrait or Landscape mode?

mrlemmer11 · 07-08-2015, 03:54 PM

Code:

Sub setFullScreen()
If Application.Height > Application.Width Then
With ActiveDocument.ActiveWindow.View
    .Type = wdPrintView
    .Zoom.Percentage = 104
    .FullScreen = True
End With
Else
With ActiveDocument.ActiveWindow.View
    .Type = wdPrintView
    .Zoom.Percentage = 120
    .FullScreen = True
End With
End If
End Sub

HAHA look at that! I figured out my own problem for once! well this is a reference for anyone else who may have the same question.