Propriedade Shape.WebListBox (Publisher)

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 listagem Web e adiciona vários itens à mesma. Tenha em atenção que, quando criado inicialmente, um controlo de caixa de listagem Web contém três itens predefinidos. 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.