Office) (CommandBarComboBox.RemoveItem 方法

從 CommandBarComboBox 控制項中移除項目。

注意事項

[!注意事項] CommandBars 用於部分的 Microsoft Office 應用程式已經由 Microsoft Office Fluent 使用者介面的新功能區元件取代。 如需詳細資訊，請參閱 Office Fluent 功能區概觀。

語法

運算式。RemoveItem (Index)

表達 代表 CommandBarComboBox 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Index	必要	整數	要從清單中移除的項目。

範例

本範例會判斷指定下拉式方塊中的項目是否超過三個。 如果超過三個，本範例會移除第二個項目、變更樣式，並設定新值。 它也會設定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

注意事項

本方法只能用於移除清單方塊控制項。

另請參閱

• CommandBarComboBox 物件成員

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。