全部显示

AddItem 方法

在 指定命令栏组合框控件中添加一个列表项。该组合框控件必须是自定义控件，并且必须是下拉式列表框或组合框。

注意   该方法不能用于编辑框或内置的组合框控件。

expression   必需。该表达式返回一个 CommandBarComboBox 对象。

Text   String 类型，必需。要添加到指定控件中的文字。

Index   Variant 类型，可选。指定项在列表各项中的位置。如果省略此参数，指定项将添加在列表的末尾。

示例

本示例可实现的功能为：在命令栏中添加一个组合框控件，然后在该列表中添加两个选项。本示例还设置列表的行数和组合框的宽度。

Set myBar = CommandBars("Custom")
Set myControl = myBar.Controls.Add(Type:=msoControlComboBox, Id:=1)
With myControl
    .AddItem "First Item", 1
    .AddItem "Second Item", 2
    .DropDownLines = 3
    .DropDownWidth = 75
    .ListHeaderCount = 0
End With