AddItem 方法

       

为列表框或组合框添加数据项。

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