Share via


Shape.WebListBox-Eigenschaft (Publisher)

Gibt das der angegebenen Form zugeordnete WebListBox -Objekt zurück.

Syntax

Ausdruck. WebListBox

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

WebListBox

Beispiel

In diesem Beispiel wird ein neues Weblistenfeld erstellt und diesem mehrere Elemente hinzugefügt. Beachten Sie, dass ein Weblistenfeld-Steuerelement bei der ersten Erstellung drei Standardelemente enthält. Dieses Beispiel enthält eine Schleife, die die Standard-Listenfeldelemente vor dem Hinzufügen neuer Elemente löscht.

Dim shpNew As Shape 
Dim wlbTemp As WebListBox 
Dim intCount As Integer 
 
Set shpNew = ActiveDocument.Pages(1).Shapes _ 
 .AddWebControl(Type:=pbWebControlListBox, Left:=100, _ 
 Top:=150, Width:=300, Height:=72) 
 
Set wlbTemp = shpNew.Web ListBox 
 
With wlbTemp 
 .MultiSelect = msoFalse 
 
 With .ListBoxItems 
 For intCount = 1 To .Count 
 .Delete (1) 
 Next intCount 
 
 .AddItem Item:="Green" 
 .AddItem Item:="Purple" 
 .AddItem Item:="Red" 
 .AddItem Item:="Black" 
 End With 
End With

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.