我正在尝试在VBA中创建,放置和填充ComboBox的元素。我不了解自己所缺少的内容,但是我无法弄清楚该怎么做。我的API中没有MSForms
(即我无法编写Dim someComboBox As MSForms.ComboBox
,因为它失败了。是否可以通过某种方式导入它?有人可以向我指出正确的方向吗?
我想要实现的是,当用户单击按钮时,会创建一个包含各种项目(组合框,单选按钮等)的新表单,因此我想以编程方式执行此操作。
最佳答案
您可以依赖以下代码:
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