全部显示

RemoveItem 方法

从指定命令栏组合框控件中删除一项。

注意   本属性只能用于列表框控件。

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

Index   Long 类型，必需。要从列表中删除的项。

示例

本示例可实现的功能为：确定指定的组合框所含列表项是否多于三项。如果多于三项，那么本示例将删除第二项，更改样式并设置一个新值。此外，本示例还设置了父对象（即 CommandBarControl 对象）的 Tag 属性以表明该列表发生了变化。

Set myBar = CommandBars _
    .Add(Name:="Custom", Position:=msoBarTop, _
    Temporary:=True)
With myBar
    .Controls.Add Type:=msoControlComboBox, ID:=1
    .Visible = True
End With
With CommandBars("Custom").Controls(1)
    .AddItem "Get Stock Quote", 1
    .AddItem "View Chart", 2
    .AddItem "View Fundamentals", 3
    .AddItem "View News", 4
    .Caption = "Stock Data"
    .DescriptionText = "View Data For Stock"
End With
Set myControl = myBar.Controls(1)
With myControl
    If .ListCount > 3 Then
        .RemoveItem 2
        .Style = msoComboNormal
        .Text = "New Default"
         Set ctrl = .Parent
    End If
End With