Userform fade not working from command buttons

excel 2003 running xp
Got a userform that is activated from a command button that fades out the background so the userform really stands out.

I have about 5 more command buttons on same page but can NOT get them to use the fade routine when their command buttons are pressed.

kind of got it to work with Buttons but thats not what they require, prefer to use command buttons.

' worked with buttons

Please Login or Register  to view this content.

Then repeated this for each Button


Im guessing I need some kind of Class module to see which command button is pressed but stuck

added example file to look at, any help would be great.

Can I ask why you want to use Commandbuttons rather than the more stable Forms buttons?

Originally Posted by berty2000

Because these command buttons are constant throughout the entire project, and you cant apply colour to form buttons.

Yes you can.

I can't see any code to fade out the background or userform

You could just add a public commandbutton variable to the userform's module and set that in the button_click before you show the form.

code change to command buttons

Please Login or Register  to view this content.

Add this to the top of the Userform1 code module, along this the other declarations.

Please Login or Register  to view this content.

revise ShowPicture routine

Please Login or Register  to view this content.

Add this to the declarations section in the userform:

Please Login or Register  to view this content.

and then refer to Button wherever you need it in the code.

The ShowDialog code becomes:

Please Login or Register  to view this content.

and the button_click:

Please Login or Register  to view this content.

I missed out this change in Module15

Please Login or Register  to view this content.

For mine, you need to alter the Userform_Activate code to use:

Please Login or Register  to view this content.

rather than:

Please Login or Register  to view this content.