ワード：コンボボックス

コントロールツールボックスでコンボボックスを設定したいです。
選択肢はどのように設定すればよいか教えてください。

No.2 ベストアンサー 回答者： Wizard_Zero 回答日時： 2005/03/11 11:32

#1 Wizard_Zeroです。

マクロコードです。Alt+F11でコード編集画面になります。コードは、Project - ThisDocument に書きます。

マクロを実行するには、[ツール]→[マクロ]→[マクロ](あるいはAlt+F8)で呼び出します。

文書を開いた時に追加されている状態にしたければ、Document_Openイベント内に記述します。

Private Sub Document_Open()
Call ComboBox1.AddItem("AAA")
Call ComboBox1.AddItem("BBB")
Call ComboBox1.AddItem("CCC")
Call ComboBox1.AddItem("DDD")
End Sub


VBA(マクロ)の基礎的な知識は必要です。

この回答へのお礼

ありがとうございした
できました！！！
助かりました。

お礼日時：2005/03/12 22:46

No.1 回答者： Wizard_Zero 回答日時： 2005/03/09 11:34

Wizard_Zeroと申します。

VBならListプロパティで直接設定できるのですが、VBAでは出来ないようです。コードで選択項目(リストアイテム)を追加してください。
こんな感じです。


Private Sub Test()
Call ComboBox1.AddItem("AAA")
Call ComboBox1.AddItem("BBB")
Call ComboBox1.AddItem("CCC")
Call ComboBox1.AddItem("DDD")
End Sub

この回答への補足

ありがとうございます！！

試してみたのですが，やり方がよくないようで，うまくいきませんでした。
WORD文書自体のマクロのコードでしょうか・・？

補足日時：2005/03/09 23:41