excel - 如何使用 VBA 中的命令按钮以编程方式在现有用户窗体上创建新复选框？

Question

我试过`
Set chkBox = UserForm1.Controls.Add("Forms.Checkbox.i", "Checkbox" & i)
'.Object.Caption = Range("D3").Value
我什至试过

With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
    Left:=51.75, Top:=183, Width:=120, Height:=19.5)
    .Name = "NewCheckBox"
    .Object.Caption = Range("D3").Value

但这给了我一个复选框，但不是在我创建的用户表单上，而是在我所在的事件表上。

有什么建议么

Answer 1

在我写的最原始的表单中，这添加了一个复选框(在 UserForm1 的左上角)

Private Sub CommandButton1_Click()

        Dim chkBox As Control

        Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "checkbox")

End Sub

你会想玩定位等。