以编程方式在VBA(Excel)中添加ComboBox

Question

我正在尝试在VBA中创建,放置和填充ComboBox的元素.我不明白我错过了什么,但我不知道该怎么做.我不有MSForms我的API(即我不能写Dim someComboBox As MSForms.ComboBox,因为它失败.是否有可能以某种方式进口吗？有人点我在正确的方向？

我想要实现的是,当用户单击一个按钮时,会创建一个包含各种项目(ComboBoxes,RadioButtons等)的新表单,因此我想以编程方式执行此操作.

Answer 1

您可以依赖以下代码:

 Set curCombo = ActiveSheet.Shapes.AddFormControl(xlDropDown, Left:=Cells(1, 1).Left, Top:=Cells(2, 1).Top, Width:=100, Height:=20)
 With curCombo
        .ControlFormat.DropDownLines = 2
        .ControlFormat.AddItem "Item 1", 1
        .ControlFormat.AddItem "item 2", 2
        .Name = "myCombo"
        .OnAction = "myCombo_Change"
 End With