Fullscreen userform - not working for everyone?

[behedwin]

Hi

I am using this code to run my userform in fullscreen.
I have 7 ppl using the document and it works for all but 1.

Sub Fullscreen()
'fullscreen för userform

    Dim lngWinState As XlWindowState

    With Application
        .ScreenUpdating = False
        lngWinState = .WindowState
        .WindowState = xlMaximized
        Personalform.Move 0, 0, .Width, .Height
        .WindowState = lngWinState
        .ScreenUpdating = True
    End With
End Sub

For everyone it works fine, the userform is stretched to fit the users screen.
But for one it is stretched to much and the user cant see some of the objects on the userform because they are outside of the screen.


Why is this?

Is there some method to ensure that a userform is stretched "better" on all screens?

 

[Jaafar Tribak]

Hello Mr. Jaafaer
We have missed you a lot ..
I have tried the code but the userform is the same (I expect it to be fit screen). I am using windows 7 32 Bit and office 2016 32 Bit
We are waiting for you at this link From Here

Hi YasserKhalil ,

Long time no see .. I wasn't aware of your new arabic excel forum. It looks good .. I wish you good luck with it.

As for the code not working for you, do you get a valid hwnd after calling WindowFromAccessibleObject on the userform :

Call WindowFromAccessibleObject(Me, hwnd)
    [COLOR=#ff0000][B]Debug.Print hwnd[/B][/COLOR]

 

[Jaafar Tribak]

Wow, it worked for me too. Just that I have a multi page format and the page did not expand. Howe do I solve this ?
Kelly

Short of using a propper code that expands each and every control in proportion with the userform, you can try zooming the userform at the end.. something along these lines :

Private Sub UserForm_Initialize()
    Call WindowFromAccessibleObject(Me, hwnd)
    If IsWindow(hwnd) Then
        SetWindowPos hwnd, Application.hwnd, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN), 0
    End If
[COLOR=#0000ff][B]    Me.Zoom = 400[/B][/COLOR]
End Sub

 

[Jaafar Tribak]

all the lines under the [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=Else]#Else [/URL] are highlighted red. I am asked to update it to suit the 64 bit system. What should I do?
Thanks

Have you copied all the API declarations located between the #If #Else #End If clause or just the ones after the #Else ?

 

[kelly mort]

Have you copied all the API declarations located between the #If #Else #End If clause or just the ones after the #Else ?

Yes I have copied all

 

[kelly mort]

Short of using a propper code that expands each and every control in proportion with the userform, you can try zooming the userform at the end.. something along these lines :

Private Sub UserForm_Initialize()
    Call WindowFromAccessibleObject(Me, hwnd)
    If IsWindow(hwnd) Then
        SetWindowPos hwnd, Application.hwnd, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN), 0
    End If
[COLOR=#0000ff][B]    Me.Zoom = 400[/B][/COLOR]
End Sub

I used

Me.Zoom = 150

And it worked for my screen. Can the 400 be in percentage? So say 100%?
Regards
Kelly

 

[YasserKhalil]

Thanks a lot for reply
As for the immediate window I got this result 328578