vba) 유저폼 코드로 컨트롤 버튼 만들기

CheckBox	Forms.CheckBox.1
ComboBox	Forms.ComboBox.1
CommandButton	Forms.CommandButton.1
Frame	Forms.Frame.1
Image	Forms.Image.1
Label	Forms.Label.1
ListBox	Forms.ListBox.1
MultiPage	Forms.MultiPage.1
OptionButton	Forms.OptionButton.1
ScrollBar	Forms.ScrollBar.1
SpinButton	Forms.SpinButton.1
TabStrip	Forms.TabStrip.1
TextBox	Forms.TextBox.1
ToggleButton	Forms.ToggleButton.1

---

Private Sub UserForm_AddControl(ByVal Control As MSForms.Control)

    'Label1.Caption = "Control was Added."

End Sub

Private Sub Ad_Ctr( _

   ID As String, _

   ByRef Set_Name, _

   Left_Val As Long, _

   Top_Val As Long, _

   Width_Val As Long, _

   Height_Val As Long, _

   Optional Control_Name, _

   Optional Ctr_Show)

    Set Set_Name = Controls.Add(ID, Control_Name, Ctr_Show)

    

    With Set_Name

      .Left = Left_Val

      .Top = Top_Val

      .Width = Width_Val

      .Height = Height_Val

      .Name = Control_Name

      .Caption = .Name

    End With

    

End Sub

Private Sub UserForm_Initialize()

    Call Ad_Ctr("Forms.CommandButton.1", Btn, 0, 0, 200, 20, "Btn1")

    

    Btn.Left = 10

    

End Sub