Compartilhar via

Objeto WebListBox (Publicador)

  • Artigo

Representa um controle de caixa de lista da Web. O objeto WebListBox é um membro do objeto Shape .

Comentários

Use o método Shapes.AddWebControl para criar uma caixa de lista da Web.

Use a propriedade Shape.WebListBox para acessar uma forma de controle de caixa de lista da Web.

Use o método AddItem do objeto WebListBoxItems para adicionar itens a uma caixa de lista da Web.

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 uma rotina que exclui os itens de caixa de listagem padrão antes de adicionar novos itens.

Observação

Quando você cria uma caixa de lista web, sua largura inicial é de 300 pontos. No entanto, o Microsoft Publisher altera automaticamente essa largura com base na largura dos itens na lista.

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

Propriedades

Confira também

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.