userform question
 

just a simple question if there's a statement for
deactivating a form. bec its not running the form event
when i click on the spreadsheet again. if you need i have
explain a bit on why i need this.

thanks

i m using a form just to place some commandbuttons(each
associated to a macro). i have like 10 buttons so the form
is long. i want to reduce its length when its not active

wht i am using is

Private Sub UserForm_Activate()
UserForm1.Height = 231
End Sub


Private Sub UserForm_Deactivate()
UserForm1.Height = 51
End Sub

i have

userform1.show modeless
AppActivate Application.Caption

in all the macros and quite a few worksheet events(bec as
soon as i run a macro the form becomes invisible) it is
not deactivating the form even if its not in focus and so
it never reduces its height.

userform question
 

Try this

Private Sub UserForm_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)
If X < 6 Or X Me.Width - 6 Or Y < 1 Or Y
Me.Height - 21 Then
Me.Height = 51
Else
Me.Height = 231
End If
End Sub


Kevin Beckham
-----Original Message-----

just a simple question if there's a statement for
deactivating a form. bec its not running the form event
when i click on the spreadsheet again. if you need i have
explain a bit on why i need this.

thanks

i m using a form just to place some commandbuttons(each
associated to a macro). i have like 10 buttons so the
form
is long. i want to reduce its length when its not active

wht i am using is

Private Sub UserForm_Activate()
UserForm1.Height = 231
End Sub


Private Sub UserForm_Deactivate()
UserForm1.Height = 51
End Sub

i have

userform1.show modeless
AppActivate Application.Caption

in all the macros and quite a few worksheet events(bec as
soon as i run a macro the form becomes invisible) it is
not deactivating the form even if its not in focus and so
it never reduces its height.
.

userform question
 

thanks kevin. that exactly what i was looking for.

it works ok when the mouse move over it but sometimes when
i get away from it in x direction it down downsizes
itself. if you could explain me briefly that "if"
condition maybe it will work out.

thanks a lot again.


-----Original Message-----
Try this

Private Sub UserForm_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)
If X < 6 Or X Me.Width - 6 Or Y < 1 Or Y
Me.Height - 21 Then
Me.Height = 51
Else
Me.Height = 231
End If
End Sub


Kevin Beckham
-----Original Message-----

just a simple question if there's a statement for
deactivating a form. bec its not running the form event
when i click on the spreadsheet again. if you need i
have
explain a bit on why i need this.

thanks

i m using a form just to place some commandbuttons(each
associated to a macro). i have like 10 buttons so the
form
is long. i want to reduce its length when its not active

wht i am using is

Private Sub UserForm_Activate()
UserForm1.Height = 231
End Sub


Private Sub UserForm_Deactivate()
UserForm1.Height = 51
End Sub

i have

userform1.show modeless
AppActivate Application.Caption

in all the macros and quite a few worksheet events(bec
as
soon as i run a macro the form becomes invisible) it is
not deactivating the form even if its not in focus and
so
it never reduces its height.
.

.