Looking for the code to center worksheet based on monitor size

[lnagel]

anyone already have the worksheet centering code that works no matter what the monitor size - that would be willing to share?

Also want to lock current worksheet size (make current size the full screen size). Thanks in advance

 

[footoo]

anyone already have the worksheet centering code that works no matter what the monitor size - that would be willing to share?

Sub Window_Mid()
Dim shW#, maxW#
Application.ScreenUpdating = False
With ActiveWindow
    .WindowState = xlMaximized
    maxW = Application.Width
    .WindowState = xlNormal
    shW = Application.Width
    .Top = 20
    .Left = (maxW - shW) / 2
End With
End Sub

 

[footoo]

Also want to lock current worksheet size (make current size the full screen size)

Don't understand what you want.

 

[lnagel]

I want to make the current worksheet size the "Fullscreen" Size. So Not sure if I am looking for code to eliminate the fullscreen click (top right corner) or just to change the "fullscreen" option to set the worksheet size to a specific width and height.

 

[lnagel]

Yep that works perfect -TYVM!

 

[footoo]

I want to make the current worksheet size the "Fullscreen" Size. So Not sure if I am looking for code to eliminate the fullscreen click (top right corner) or just to change the "fullscreen" option to set the worksheet size to a specific width and height.

See if this helps : https://www.google.com.hk/search?q=....1.69i57j0.52536j1j8&sourceid=chrome&ie=UTF-8

 

[lnagel]

Maybe this will make more sense as I have figured out definite specifics

I have resized a Worksheet to be viewed at exactly 1452 Points in Width and 792 Points in Height

If the user changes that size (fullscreen click or manual resize) and then saves & closes the workbook - I want to reset the size of the Worksheet to 1452W X 792H the next time it is opened (so would be a sub called in "This WorkBook Code")

Additionally - I would also like to have the Left Right Scroll bar reset to full Left and the Up Down Scroll bar reset to Full Up upon opening

Thanks

 

[lnagel]

Figured out the scrollbars part - In Case Anyone else is interested here is

the Left/Right Center the Activewindow (regardless of Monitor Size) and 20 points (I think) down from the top edge of Monitor Screen
and then move the Left/Right Scroll Bar all the way to the left and the Up/Down Scroll Bar all the way up

Still looking for the code to set the Worksheet Size to Exactly 1452 X 792

Sub Window_Mid()
Dim shW#, maxW#
Application.ScreenUpdating = False
With ActiveWindow
    .WindowState = xlMaximized
    maxW = Application.Width
    .WindowState = xlNormal
    shW = Application.Width
    .Top = 20
    .Left = (maxW - shW) / 2
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
End With
End Sub

 

[footoo]

Still looking for the code to set the Worksheet Size to Exactly 1452 X 792

Code readily available here : https://www.google.com.hk/search?q=....69i57j0l5.30365j1j8&sourceid=chrome&ie=UTF-8

Sub Window_Mid()
Dim shW#, maxW#
With Application
    .ScreenUpdating = False
    With .ActiveWindow
[COLOR=#ff0000]        .Width = 1450[/COLOR]
[COLOR=#ff0000]        .Height = 792[/COLOR]
        .WindowState = xlMaximized
        maxW = .Width
        .WindowState = xlNormal
        shW = .Width
        .Top = 20
        .Left = (maxW - shW) / 2
        .ScrollRow = 1
        .ScrollColumn = 1
    End With
    .ScreenUpdating = False
End With
End Sub

 

[footoo]

If you want to centre vertically, instead of 20 from the top :

Sub Window_Mid()
Dim maxW#, maxH#
With Application
    .ScreenUpdating = False
    With .ActiveWindow
        .Width = 1450
        .Height = 792
        .WindowState = xlMaximized
        maxW = .Width
        maxH = .Height
        .WindowState = xlNormal
        .Top = (maxH - .Height) / 2
        .Left = (maxW - .Width) / 2
        .ScrollRow = 1
        .ScrollColumn = 1
    End With
    .ScreenUpdating = False
End With
End Sub