vba code to change word zoom level based on Display monitor being Portrait or Landscape mode?

[mrlemmer11]

Hi there all of us at work have dual 21 inch widescreen monitors. Some of us prefer to have our second monitor actually be in landscape mode, but some of us physically turn our 2nd monitor so that it is taller rather than wide. we then hit control alt left so that what shows on our screen is also adjusted.




Those of use who keep our second monitor wider rather than taller prefer this:

With ActiveDocument.ActiveWindow.View
    .Type = wdPrintView
    .Zoom.Percentage = 120
    .FullScreen = True
End With

while those of us who prefer it to be taller rather than wider prefer this:

With ActiveDocument.ActiveWindow.View
    .Type = wdPrintView
    .Zoom.Percentage = 104
    .FullScreen = True
End With

So i can def do an if statement... but I don't know the code to determine what orientation the display with my word application is currently at.. any thoughts?

[mrlemmer11]

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.