全部显示

Clear 方法

从指定命令栏组合框控件（下拉式列表框或组合框）中删除所有列表项并清除文本框（编辑框或组合框）。

注意   该方法不能用于内置命令栏控件。

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

示例

本示例可实现的功能为：检查命令栏“Custom”上组合框控件中的项目数。如果列表中的项目数少于 3，那么本示例清除该列表，在其中添加一个新项目，然后将该新项目显示为组合框控件的默认值。

Set myBar = CommandBars("Custom Bar")
Set myControl = myBar.Controls _
    Type:=msoControlComboBox)
With myControl
    .AddItem "First Item", 1
    .AddItem "Second Item", 2
End With
If myControl.ListCount < 3 Then
    myControl.Clear
    myControl.AddItem Text:="New Item", Index:=1
End If