Свойство Shape.WebListBox (издатель)

Возвращает объект WebListBox , связанный с указанной фигурой.

Синтаксис

expression. WebListBox

Выражение Переменная, представляющая объект Shape .

Возвращаемое значение

WebListBox

Пример

В этом примере создается новое поле списка веб-сайтов и добавляется в него несколько элементов. Обратите внимание, что при первоначальном создании элемент управления веб-списка содержит три элемента по умолчанию. Этот пример включает цикл, который удаляет элементы списка по умолчанию перед добавлением новых элементов.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.