Multi page on user forms

[Pauljj]

Afternoon all,

Is it possible to change the back ground colour on the multipages ? no default option appears ? also The caption you add to the pages, can that caption be formatted, as I wanted it to appear font size 12 and in bold ?


Thanks

Pauljj

 

[My Aswer Is This]

The Multipage color can only be colored if you try the following steps:
1. Add your Multipage to Your userform
2. Add a image control to your Userform
3. Set the background color of your image control to Yellow or some other color and Backstyle to Opaque
4. Place your Image control over your Mutipage.
5. Right click on image control and choose send backwards
6. Now you should add your other controls you want to your Multipage
7. You will have to do the same thing to each multipage.
8. Be sure and wait till you have the image control installed over the multipage before adding other controls to the multipage.


There is no way I know of to color the multipage tab or change font size.

 

[Jaafar Tribak]

Here is an API based approach :

https://www.mrexcel.com/forum/excel...ultipage-backcolor-changed-4.html#post4948064

 

[My Aswer Is This]

And does this script have to run every time the Userform is opened?

Here is an API based approach :

https://www.mrexcel.com/forum/excel...ultipage-backcolor-changed-4.html#post4948064

 

[Jaafar Tribak]

And does this script have to run every time the Userform is opened?

Yes... something as simple as this would set the colors of page0 and page1 in the form's Initialize event

Private Sub UserForm_Initialize() 
    '// Set the Pages BackColors .
 
    Call SetBackColor(Page:=MultiPage1.Pages(0), BackColor:=vbRed)
    Call SetBackColor(Page:=MultiPage1.Pages(1), BackColor:=RGB(20, 200, 100))
 
End Sub

 

[My Aswer Is This]

Yes... something as simple as this would set the colors of page0 and page1 in the form's Initialize event

Private Sub UserForm_Initialize() 
    '// Set the Pages BackColors .
 
    Call SetBackColor(Page:=MultiPage1.Pages(0), BackColor:=vbRed)
    Call SetBackColor(Page:=MultiPage1.Pages(1), BackColor:=RGB(20, 200, 100))
 
End Sub

Thanks for sharing this and the original poster may like to do it this way. But I still like my ideal better. My way is hardcoded and I understand it. I never like using long drawn out code I do not understand just to save me a few steps when I set up my Userform.
But again glad you shared another way.

 

[Jaafar Tribak]

Thanks for sharing this and the original poster may like to do it this way. But I still like my ideal better. My way is hardcoded and I understand it. I never like using long drawn out code I do not understand just to save me a few steps when I set up my Userform.
But again glad you shared another way.

You are welcome .