RemoveItem 方法

全部显示

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

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

expression.RemoveItem(Index)

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

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

示例

本示例可实现的功能为：确定指定的组合框所含列表项是否多于三项。如果多于三项，那么本示例将删除第二项，更改样式并设置一个新值。此外，本示例还设置了父对象（即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