Resize userform to fill the screen and resize the controls

[YasserKhalil]

Hello everyone

I am trying to resize the userform so as to fit the screen and at the same time to resize the controls on it .. I have found classes modules which I think is related to the subject but I don't know why it doesn't work properly
I have attached the sample file with my attempts ..
Thanks advanced for help

[HansV]

Doesn't the site where you found the class modules provide an example?

[YasserKhalil]

In fact this was a code that I kept in a text file and I don't remember the source ..

[HansV]

OK, I found the source - it's from Andy Pope: Anchor controls and resizing userform

Please download the sample workbook from that page and use that - your workbook is missing some essential parts of the code.

[Nick Vittum]

I'm glad to see this, for future reference.

[YasserKhalil]

I don't know what's missing.. I have two class modules and standard module with some public variables (enumAnchorStyles)
I think I have to deal with each control on the userform ..
My final target is fit the userform to the whole screen and at the same time to resize the controls according to the screen resolution.

[HansV]

1) Add the following line at the end of UserForm_Initialize:

Code: Select all

    UserForm_Resize

2) Add blocks similar to

Code: Select all

        With .Anchor("Frame1")
            .anchorStyle = enumAnchorStyleLeft Or enumAnchorStyleRight Or enumAnchorStyleBottom Or enumAnchorStyleTop
            .minimumHeight = 120
        End With

for each control that you want to resize. It's up to you to figure out which settings you need for each control.

[YasserKhalil]

Thanks a lot, Mr. Hans
I will try to adjust the rest of the controls.