Compartir a través de


Objeto WebListBox (Publisher)

Representa un control de cuadro de lista web. El objeto WebListBox es un miembro del objeto Shape .

Observaciones

Use el método Shapes.AddWebControl para crear un nuevo cuadro de lista web.

Utilice la propiedad Shape.WebListBox para acceder a una forma de control de cuadro de lista web.

Use el método AddItem del objeto WebListBoxItems para agregar elementos a un cuadro de lista web.

Ejemplo

En este ejemplo se crea un nuevo cuadro de lista web y se le agregan varios elementos. Tenga en cuenta que, al crearse inicialmente, un control de cuadro de lista web contiene tres elementos predeterminados. En este ejemplo se incluye una rutina que elimina los elementos de cuadro de lista predeterminados antes de agregar los elementos nuevos.

Nota:

Al crear un cuadro de lista web, su ancho inicial es de 300 puntos. Sin embargo, Microsoft Publisher cambia automáticamente este ancho según el ancho de los elementos de la lista.

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

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.