Word VBA マクロ実行でコンボボックスを表示

Question

次のような処理を行いたいのですが、
マクロ実行後、コンボボックスを表示させる方法が分かりません。

1.ユーザーがwordの"開発"→"マクロ"からマクロを実行する。
2.MsgBoxのようにコンボボックスが表示される。
3.ユーザーがコンボボックスの値を選択する。

また、コンボボックスの値を後の処理で利用したいので、
コンボボックスで選択した関数を取得する関数を教えていただきたいです。
よろしくお願いいたします。

Answer 1

たぶん存在しないと思います。
MSDN：情報の入力を求める
上記のとおり
inputbox、msgbox、組み込みダイアログが呼び出せます。

Dialogs(wdDialogFileOpen).Show 

MSDN：Word の組み込みのダイアログ ボックスは、上記のように引数によって表示するダイアログを変更できます。

希望のものがあるかもしれません・・・が、たぶん自作するしかないかと。

自作する場合は、以下をどうぞ
MSDN：独自のダイアログ ボックスを作成する

Answer 2

テキスト入力ならInputboxでできますが、コンボボックスとなるとそれ用にユーザーフォームを１つ用意してあげる方法になると思います。

①ユーザーフォームを作成し、コンボボックスを設置する
②呼び出し元のマクロでユーザーフォームのフォームオブジェクトを作成する
Dim frmCmb As New UserForm1

③呼び出し元のマクロでフォームオブジェクトをモーダル表示で表示する
frmCmb.Show

④ユーザーフォームを閉じると呼び出し元に処理が戻るので、フォームオブジェクトからコンボボックスの値を取得する
（画面を閉じた後でもフォームオブジェクトを解放するまでは値を参照できます）
strValue = frmCmb.Combobox1.Text

以上のような形で実現するのが一般的かと思います。

自身で記述されたコードの提示がないのでサンプルの提供は控えさせたいただきましたが、手順としては上記のような流れで実現できると思います。
がんばってみてください。

Comments

[momosumomo]

教えていただいた手順で、コンボボックスを作成することができました。
分かりやすかったので大変助かりました。ありがとうございました。