WebListBoxItems.AddItem-Methode (Publisher)

Fügt einem Weblistenfeld-Steuerelement Listenelemente hinzu.

Syntax

Ausdruck verwendet werden. AddItem (Item, Index, SelectState, ItemValue)

Ausdruck Eine Variable, die ein WebListBoxItems-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Item Erforderlich String Der Name des Elements, wie er in der Liste angezeigt wird.
Index Optional Long Die Nummer des Listenelements. Wenn Index nicht angegeben ist oder außerhalb des Bereichs der Indizes vorhandener Listenfeldelemente liegt, wird das neue Element am Ende des Listenfelds hinzugefügt. Andernfalls wird das neue Element an der durch "Index" angegebenen Position eingefügt und die Indexposition aller nachfolgenden Elemente um eins erhöht.
SelectState Optional Boolean True, Wenn das Element ausgewählt ist, wenn das Listenfeld Anfangs angezeigt wird. Der Standardwert ist False.
ItemValue Optional String Der Wert des Listenfeldelements. Wenn nicht angegeben, ist der Wert des neuen Elements identisch mit dem Elementnamen.

Hinweise

Wenn Sie programmgesteuert ein neues Weblistenfeld erstellen, enthält es drei Elemente. Verwenden Sie die Delete -Methode, um sie aus der Liste zu entfernen.

Beispiel

Dieses Beispiel erstellt ein neues Listenfeld in der aktiven Publikation, entfernt die drei Standardlistenelemente und fügt dann mehrere Elemente hinzu.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

  • Last updated on