Propriedade WebListBox.ListBoxItems (Publisher)

Devolve um objeto WebListBoxItems que representa os itens num controlo de caixa de listagem Web.

Sintaxe

expressão. ListBoxItems

expressão Uma variável que representa um objeto WebListBox .

Valor de retorno

WebListBoxItems

Exemplo

Este exemplo cria um novo controlo de caixa de listagem Web e adiciona cinco novos itens de lista ao mesmo.

Sub NewListBoxItems() 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes.AddWebControl _ 
 (Type:=pbWebControlListBox, Left:=100, _ 
 Top:=100, Width:=150, Height:=100).WebListBox 
 .MultiSelect = msoTrue 
 With .ListBoxItems 
 For intCount = 1 To .Count 
 .Delete (1) 
 Next 
 .AddItem Item:="Yellow" 
 .AddItem Item:="Red" 
 .AddItem Item:="Blue" 
 .AddItem Item:="Green" 
 .AddItem Item:="Black" 
 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.