Adding a page to Multipage with code

[AdiK]

Hello guys,

I have the following code where i create a Multipage and add pages to it using VBA. The code works fine till creating multipage. But adding page to it is a problem. I have followed excel help and used it in the following code.

Private Sub UserForm_Initialize()

Dim x As Control
Dim y As Control


Set x = UF2.Frame1.Controls.Add("Forms.Multipage.1", "MP")

Set y = MP.Pages(0).Controls.Add("MSForms" _
& ".TextBox.1", "x", Visible)


End Sub

Please help me with adding the pages.

Thanks in Advance

[Keebellah]

I would suggest you take a look and some of these links,
there are more if you google the right text
http://dailydoseofexcel.com/archives...ls-on-the-fly/
http://www.ozgrid.com/Excel/free-tra...a2lesson21.htm

[Norie]

That code doesn't add a page to a multipage, it adds a multipage to a frame and then appears to try to add a textbox to the first page of the multipage.

If that's what you want to do try replacing MP.Pages(0) with x.Pages(0) in the second line of code.

[AdiK]

Hello Norie,

I want to add pages to the multipage I created.

[Norie]

This will add a multipage to Frame1 and then add a new page to it.

Please Login or Register  to view this content.

[AdiK]

Thanks a lott Norie! How do you manage to find the commands?

[Keebellah]

@Norie, nice

This link also has a nice example to create an entire userform on-the-fly.
Using other code you could customize it entirely to your needs.
You will need access to the VBA project, it may not be hidden or password protected.
http://stackoverflow.com/questions/1...dule-using-vba

[Keebellah]

Of course, now you need to add the textbox