CommandBarComboBox.RemoveItem メソッド (Office)

  • [アーティクル]

CommandBarComboBox コントロールからリスト項目を削除します。

注:

[!メモ] 一部の Microsoft Office アプリケーションにおける CommandBars の使用方法が、Microsoft Office Fluent ユーザー インターフェイスの新しいリボン コンポーネントによって置き換えられました。 詳細については、「Office Fluent リボンの概要」を参照してください。

構文

式。RemoveItem (Index)

式CommandBarComboBox オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Index 必須 Integer リストから削除する項目を指定します。

例

次の使用例は、指定したコンボ ボックスに項目が 4 つ以上含まれているかどうかを調べます。 4 つ以上の項目がある場合、2 番目の項目を削除し、スタイルを変更し、新しい値を設定します。 また、親オブジェクト (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 またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。