次の方法で共有

Shape.WebListBox プロパティ (Publisher)

  • [アーティクル]

指定した図形に関連付けられた WebListBox オブジェクトを取得します。

構文

式。WebListBox

式Shape オブジェクトを表す変数。

戻り値

WebListBox

例

この例では、新しい Web リスト ボックスを作成し、それに複数の項目を追加します。 最初に作成されたとき、Web リスト ボックス コントロールには 3 つの既定の項目が含まれていることに注意してください。 次の使用例は、ループ処理を実行して、新しい項目を追加する前に既定のリスト ボックス項目を削除します。

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 のサポートおよびフィードバックを参照してください。