Office VBA教程:RemoveItem方法

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

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

expression.RemoveItem(Index)

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

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

VBA示例

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

上页:Office VBA教程:Remove方法 下页:Office VBA教程:Reset方法

Office VBA教程:RemoveItem方法

Office VBA教程:Reset方法 Office VBA教程:ResetFileList方法
Office VBA教程:ResetTips方法 Office VBA教程:SaveCopyAs方法
Office VBA教程:SetAvoidRectangle方法 Office VBA教程:SetFocus方法
Office VBA教程:SetSortOrder方法 Office VBA教程:Show方法
Office VBA教程:ShowPopup方法 Office VBA教程:StartWizard方法
Office VBA教程:Update方法 Office VBA教程:新增方法
Office VBA教程:AnswerWizard对象 Office VBA教程:AnswerWizardFiles集合对象
Office VBA教程:Assistant对象 Office VBA教程:Balloon对象
Office VBA教程:BalloonCheckBox对象 Office VBA教程:BalloonCheckboxes集合对象
Office VBA教程:BalloonLabel对象 Office VBA教程:BalloonLabels集合对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号