Userform resizing
 

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

Userform resizing
 

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.

--
Regards,
Tom Ogilvy

"lmarks" wrote in message
...
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

Userform resizing
 

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



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Userform resizing
 

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


--
Regards,
Tom Ogilvy

"mark leslie" wrote in message
...
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



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Userform resizing
 

Many thanks

will give it a go

mark



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Userform resizing
 

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

Mark

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!