autosizing userform display

[medic5678]

I have a userform where I need to have the entire form visible on screen of any computer excel runs on. The size of both the form and the various controls/text in the userform need to be resized.

This is something that I of course never considered as an issue, thinking excel would do this automatically. Instead, it only shows a part of the form depending on which computer I run it on.

 

[annapurna612]

See this post here, My Post Mr Excel Resizing a form

The updated code is on Page 2 by Jaafar

Hi Sharid ,

Where this entire code has to be placed in useform or any module?

 

[annapurna612]

Hi Sharid ,

I have placed in Userform . Below lines are in red color.

 

[Sharid]

Try adding the word PtrSafe

Between the word Declare and Function you need to add the word PtrSafe so it look like

Private Declare PtrSafe Function

So It looks some thing like this

    Private Declare PtrSafe Function IUnknown_GetWindow Lib "shlwapi" Alias "#172" (ByVal pIUnk As IUnknown, ByVal hWnd As LongPtr) As Long
    Private Declare PtrSafe Function DrawMenuBar Lib "user32.dll" (ByVal hWnd As LongPtr) As Long
    Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long

 

[annapurna612]

Hi Sharid ,

Am still getting this error. could you please let me know correct code for this.

 

[Sharid]

I'm not sure what your doing wrong. However go to my first post, on page 2 there is a downloadable file of my test form with the working code, which was updated by Jaafar. See image below, click on on Workbook Demo


Link To My First POST Download file is on Page 2

 

[annapurna612]

@Sharid @Jaafar Tribak Is this code aim is automatically reduce and increase the size of objects [txt box & labels, combos] depending on the Windows screen resolution? could you please confirm the same.

Regards,
Annapurna

 

[Sharid]

yes, There is a link to a downloadable demo above in my post I would advise that you download the demo and see for yourself

See this also

Fullscreen

Reduced

Reduced Again

Reduced in size even more

 

[annapurna612]

Thank you sharid , For some reason i am getting error on my sheet and For now i have added horizontal scroll bar as work around.
I will test this code in test sheet .