为列表框或组合框添加数据项。
expression.AddItem(Text, Index)
expression 必需。该表达式返回一个 ControlFormat 对象。
Text String 类型,必需。要添加的文字。
Index Variant 类型,可选。新输入项的输入位置。如果列表中数据项数目少于指定索引号,则从列表末尾开始添加多个空数据项到指定索引号的位置。如果省略该参数,则将此数据项添加到现有列表中。
使用本方法可清除由 ListFillRange 属性指定的任何区域。
本示例创建一个列表框并用 1 到 10 的数字对其进行填充。
With Worksheets(1)
Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
For x = 1 To 10
lb.ControlFormat.AddItem x
Next
End With