Propriété Shape.WebListBox (Publisher)

Renvoie l'objet WebListBox associé à la forme spécifiée.

Syntaxe

expression. WebListBox

Expression Variable qui représente un objet Shape .

Valeur renvoyée

WebListBox

Exemple

Cet exemple crée une zone de liste web et y ajoute plusieurs éléments. Notez qu’une fois créé, un contrôle de zone de liste web contient trois éléments par défaut. Cet exemple inclut une boucle qui supprime les éléments par défaut de la zone de liste avant d'en ajouter de nouveaux.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.