WebListBoxItems.AddItem メソッド (発行元)

Web リスト ボックス コントロールにリスト アイテムを追加します。

構文

式。AddItem (Item, Index, SelectState, ItemValue)

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

パラメーター

名前 必須 / オプション データ型 説明
Item 必須 String リストに表示する項目の名前を指定します。
Index 省略可能 長整数型 (Long) リスト項目の番号を指定します。 インデックスが指定されていない場合、または既存のリスト ボックス項目のインデックスの範囲外である場合、新しい項目はリスト ボックスの末尾に追加されます。 それ以外の場合、新しいアイテムは Index で指定された位置に挿入され、その後のすべてのアイテムのインデックス位置が 1 ずつ増加します。
SelectState 省略可能 ブール型 (Boolean) True の 場合は、アイテムが選択リスト ボックスが表示されます。 既定値は False です。
ItemValue 省略可能 String リスト ボックス項目の値を指定します。 指定しない場合、新しい項目の値は項目名と同じになります。

注釈

プログラムで新しい Web リスト ボックスを作成すると、そのリスト ボックスには 3 つのアイテムが含まれます。 リストからそれらを削除するのにには、 Delete メソッドを使用します。

例

次の使用例は、作業中の文書に新しいリスト ボックス コントロールを作成し、3 つの既定のリスト項目を削除した後、そのリスト ボックスにいくつかの項目を追加します。

Sub AddListBoxItems() 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes.AddWebControl _ 
 (Type:=pbWebControlListBox, Left:=100, _ 
 Top:=100, Width:=150, Height:=100) 
 With .WebListBox.ListBoxItems 
 For intCount = 1 To .Count 
 .Delete (1) 
 Next 
 .AddItem Item:="Green" 
 .AddItem Item:="Yellow" 
 .AddItem Item:="Red" 
 .AddItem Item:="Blue" 
 .AddItem Item:="Purple" 
 .AddItem Item:="Chartreuse" 
 .AddItem Item:="Pink" 
 .AddItem Item:="Olive" 
 End With 
 End With 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on