Propiedad Shape.WebListBox (Publisher)

Devuelve el objeto WebListBox asociado a la forma especificada.

Sintaxis

expresión. WebListBox

expresión Variable que representa un objeto Shape.

Valor devuelto

WebListBox

Ejemplo

En este ejemplo se crea un nuevo cuadro de lista web y se le agregan varios elementos. Tenga en cuenta que, al crearse inicialmente, un control de cuadro de lista web contiene tres elementos predeterminados. En este ejemplo se realiza una repetición que elimina los elementos de cuadro de lista predeterminados antes de agregar otros nuevos.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.