WebListBoxItems.AddItem メソッド (Publisher)

  • [アーティクル]

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

構文

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

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

パラメーター

名前 必須 / オプション データ型 説明
Item 必須 String リストに表示する項目の名前を指定します。
Index 省略可能 長整数型 (Long) リスト項目の番号を指定します。 Index が指定されていない場合、または既存のリスト ボックス項目のインデックスの範囲外である場合は、新しい項目がリスト ボックスの末尾に追加されます。 それ以外の場合は、 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 のサポートおよびフィードバックを参照してください。