Userform resizing

[lmarks]

Hello Group

What I would like to know - is there a way to automatically resize a
userform, or do I need to create lots of userforms to workround. For
instance, I have controls that are set visible=false inside a frame but
obviously when the userform first shows there is an awful lot of grey for
the user, "looks=tacky!"

Thanks as always in advance to this excellent group.
Mark

 

[Tom Ogilvy]

Userforms have height and width properties. Your controls can be "off the
sheet" so to speak, and to make them visible increase the height or width
(or both ) to include them.

 

[mark leslie]

So what your saying then is when a control is activated I can resize the
userform so that the "New" controls are visible? Do you have a sample
of code so I can see how to incorperate it? For instance would I use
the userform activate control or attach it to a form control?

Thanks for the swift response
Mark

 

[Tom Ogilvy]

All my controls are visible (the ones "off the form" will not be seen).

When the form shows, I want the area just down to Label1 visible, so I do
this in the initialize event. The + 21 accounts for the blue caption.
When I press CommandButton5, then the form expands down to show additional
controls. Commandbutton4 is at the bottom of the display, so I use it to
determine the new size.

Private Sub UserForm_Initialize()
UserForm1.Height = Label1.Top + _
Label1.Height + 5 + 21
End Sub
Private Sub CommandButton4_Click()
Me.Hide
End Sub

Private Sub CommandButton5_Click()
UserForm1.Height = CommandButton4.Top + _
CommandButton4.Height + 5 + 21
End Sub

 

[mark leslie]

Many thanks

will give it a go

mark

 

[mark l]

That works really well thanks for taking the time to share.

Mark