AddItem 方法

全部显示

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

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

expression.AddItem(Text,Index)

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

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

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

示例

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

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