Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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.