Userform not displaying all the text

[Pookiemeister]

I was advised to post this question in this part of the forum. I noticed that some of the captions in the labels on the userform are not displaying all the text (its like there cut off). I'm assuming that has something to do with the screen resolution settings. Is there anyway to fix this issue, so the userform is displayed the same no matter what computer it is run on? This occasionally happens on my Excel userforms and Word userforms. Thank you.

 

[dmt32]

Hi,

In past when I came across this issue I just created another UserForm to work with different screen resolution. When users need to open the form, a simple test determines which one to display.

One example of code in how to do this can be found here:Get screen width and height : Windows Resources « Windows API « VBA / Excel / Access / Word

Others here may have alternative suggestions

Dave

 

[NdNoviceHlp]

It's not only screen resolution, the dpi (personalization) settings will also mess with your userform. You can trial this as it works for me.... UserForm not rendered correctly visually
Also, search this site for Jaafar as he has posted some code (probably better) on this same topic. HTH. Dave

 

[CountTepes]

Following on from dmt32's answer.

I have also had this situation 10 years ago.

Instead of inserting a userform, I created it using VBA, having first obtained the screen resolution and DPI. Then adjust all your dimensions and font sizes as required.

 

[Pookiemeister]

@CountTepes
Is it possible to obtain the screen resolution and DPI through VBA? If so, how?

Thank You

 

[CountTepes]

This might have what you want.

Determine the screen size using VBA in Microsoft Excel

With the macro below you can return the screen size with the function GetSystemMetrics32. Declare Function GetSystemMetrics32 Lib "User32" _ Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Sub DisplayMonitorInfo() Dim w As Long, h As Long w = GetSystemMetrics32(0) … Continue reading →

www.exceltip.com

 

[Pookiemeister]

Thank You I'll give it a shot.
BTW love your Avatar. Binge watched that entire show on Netflix.