エクセルVBAでIME入力モードの制御
エクセルVBAでIME入力モードの制御について教えてください。
Sub IMEの現在の状態()
状態 = IMEStatus()
MsgBox 状態 & "です", vbInformation, "IMEの現在の状態"
End Sub
これでIMEStatus関数の戻り値が
1 オンの状態
2 オフの状態
4 全角ひらがな入力モード
5 全角カタカナ入力モード
6 半角カタカナ入力モード
7 全角英数入力モード
8 半角英数入力モード
であることがわかりましたが、逆にIMEの状態を設定するにはどのように記述すればいいのでしょうか?
たとえば、Sheets("AAA").Range("B1:B20")は「半角英数入力モード」にする場合。
DialogSheets("GGG")のダイアローグを呼び出したとき、その中のEditboxes("HHH")には「全角ひらがな入力モード」。
などです。
よろしくお願いします。
お礼
HageoyaZさん、回答ありがとうございます。それぞれ試してみました。ちなみに、.xlbという拡張子がファイルの種類の一覧からみつけられなかったので、テンプレートで保存してみました。助かりました。どうmじょありがとうございました。