Compartir a través de

Método WebListBoxItems.AddItem (Publisher)

Agrega elementos de lista a un control de cuadro de lista web.

Sintaxis

expresión. AddItem (Item, Index, SelectState, ItemValue)

expresión Variable que representa un objeto WebListBoxItems .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Item Obligatorio String Nombre del elemento tal como aparece en la lista.
Index Opcional Long Número del elemento de la lista. Si no se especifica Index o si está fuera del intervalo de los índices de los elementos de cuadro de lista existentes, el nuevo elemento se agrega al final del cuadro de lista. De lo contrario, el nuevo elemento se inserta en la posición especificada por Index y la posición del índice de todos los elementos después de que se aumente en uno.
SelectState Opcional Boolean True si el elemento está seleccionado cuando se muestra inicialmente el cuadro de lista. El valor predeterminado es False.
ItemValue Opcional String Valor del elemento del cuadro de lista. Si no se especifica, el valor del nuevo elemento es el mismo que el nombre del elemento.

Observaciones

Al crear mediante programación un nuevo cuadro de lista web, contiene tres elementos. Utilice el método Delete para quitarlos de la lista.

Ejemplo

En este ejemplo se crea un nuevo control de cuadro de lista en la publicación activa, quita los tres elementos de lista predeterminados y, a continuación, le agrega varios elementos.

Sub AddListBoxItems() 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes.AddWebControl _ 
 (Type:=pbWebControlListBox, Left:=100, _ 
 Top:=100, Width:=150, Height:=100) 
 With .WebListBox.ListBoxItems 
 For intCount = 1 To .Count 
 .Delete (1) 
 Next 
 .AddItem Item:="Green" 
 .AddItem Item:="Yellow" 
 .AddItem Item:="Red" 
 .AddItem Item:="Blue" 
 .AddItem Item:="Purple" 
 .AddItem Item:="Chartreuse" 
 .AddItem Item:="Pink" 
 .AddItem Item:="Olive" 
 End With 
 End With 
End Sub

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.

  • Last updated on