Método WebListBoxItems.AddItem (Publisher)

Adiciona itens de lista a um controle de caixa de lista da Web.

Sintaxe

expressão. AddItem (Item, Índice, SelectState, ItemValue)

Expressão Uma variável que representa um objeto WebListBoxItems .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Item	Obrigatório	String	O nome do item conforme ele é exibido na lista.
Index	Opcional	Long	O número do item da lista. Se Index não for especificado ou se estiver fora do intervalo dos índices dos itens da caixa de listagem existentes, o novo item será adicionado ao final da caixa de listagem. Caso contrário, o novo item será inserido na posição especificada pelo Index e a posição de índice de todos os itens depois de ser aumentado por um.
SelectState	Opcional	Boolean	True se o item está selecionado quando a caixa de listagem é inicialmente mostrada. O valor padrão é False.
ItemValue	Opcional	String	O valor do item da caixa de listagem. Se não for especificado, o valor do novo item será o mesmo que o nome do item.

Comentários

Quando você cria programaticamente uma nova caixa de lista web, ela contém três itens. Use o método Delete para removê-los da lista.

Exemplo

Este exemplo cria o novo controle de caixa de listagem na publicação ativa, remove os três itens de lista padrão e adiciona vários itens a ela.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.