Compartilhar via

Propriedade Shape.WebListBox (Publisher)

  • Artigo

Retorna o objeto WebListBox associado ao intervalo especificado.

Sintaxe

expressão. WebListBox

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

Valor de retorno

WebListBox

Exemplo

Este exemplo cria uma nova caixa de lista da Web e adiciona vários itens a ela. Observe que, quando criado inicialmente, um controle de caixa de lista da Web contém três itens padrão. Este exemplo inclui um loop que exclui os itens de caixa de listagem padrão antes de adicionar novos itens.

Dim shpNew As Shape 
Dim wlbTemp As WebListBox 
Dim intCount As Integer 
 
Set shpNew = ActiveDocument.Pages(1).Shapes _ 
 .AddWebControl(Type:=pbWebControlListBox, Left:=100, _ 
 Top:=150, Width:=300, Height:=72) 
 
Set wlbTemp = shpNew.Web ListBox 
 
With wlbTemp 
 .MultiSelect = msoFalse 
 
 With .ListBoxItems 
 For intCount = 1 To .Count 
 .Delete (1) 
 Next intCount 
 
 .AddItem Item:="Green" 
 .AddItem Item:="Purple" 
 .AddItem Item:="Red" 
 .AddItem Item:="Black" 
 End With 
End With

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.