Partager via


Objet WebListBox (Publisher)

Représente un contrôle de zone de liste web. L’objet WebListBox est membre de l’objet Shape .

Remarques

Utilisez la méthode Shapes.AddWebControl pour créer une zone de liste web.

Utilisez la propriété Shape.WebListBox pour accéder à une forme de contrôle de zone de liste web.

Utilisez la méthode AddItem de l’objet WebListBoxItems pour ajouter des éléments à une zone de liste web.

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 routine qui supprime des éléments de la zone de liste par défaut avant d'ajouter de nouveaux éléments.

Remarque

Lorsque vous créez une zone de liste web, sa largeur initiale est de 300 points. Toutefois, Microsoft Publisher modifie automatiquement cette largeur selon la largeur des éléments de la liste.

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

Propriétés

Voir aussi

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.