Compartilhar via

Método WebListBoxItems.AddItem (Publisher)

Adiciona itens de lista a um controlo de caixa de listagem 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 Índice não for especificado ou se estiver fora do intervalo dos índices dos itens de caixa de listagem existentes, o novo item será adicionado ao final da caixa de listagem. Caso contrário, o novo item é inserido na posição especificada pelo Índice e a posição do í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 é o mesmo que o nome do item.

Comentários

Quando cria programaticamente uma nova caixa de listagem Web, esta 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.

  • Last updated on