vbaexceluserform

Adding controls to a frame in an Excel userform with VBA


I need to create labels and buttons dynamically and then add them to a frame within a userform. How do I do this? Seems like it should be easier than it really is.


Solution

  • The following code demonstrates how you can dynamically populate a frame in a userform with controls...

    In the form I used I had a frame control named Frame1, so in the UserForm_Initialize you call Frame1.Controls.Add to embed a control in the frame. You can set the control which gets returned to a WithEvents control variable that you have defined in the UserForm code module so you can respond to events on whatever controls you want...

    So with this method you need to pre-write any event code you want for any controls you create...

    Also note that you can position and size your controls even if the top, left, width, and height properties don't necessarily come up in intellisense...

    Private WithEvents Cmd As MSForms.CommandButton
    Private WithEvents Lbl As MSForms.Label
    
    Private Sub UserForm_Initialize()
        Set Lbl = Frame1.Controls.Add("Forms.Label.1", "lbl1")
        Lbl.Caption = "Foo"
        Set Cmd = Frame1.Controls.Add("Forms.CommandButton.1", "cmd1")
    End Sub
    
    Private Sub Cmd_Click()
        Cmd.Top = Cmd.Top + 5
    End Sub
    
    Private Sub Lbl_Click()
        Lbl.Top = Lbl.Top + 5
    End Sub