WebListBox Property

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Returns the WebListBox object associated with the specified shape.

expression.WebListBox

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

This example creates a new Web list box and adds several items to it. Note that when initially created, a Web list box control contains three default items. This example includes a loop that deletes the default list box items before adding new items.

  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