IMEステータス判断について

VBA EXCEL

今よく考えると、それは単に"IMEStatus=8"とすればよかった。
でも、SendKeysを使いたくてこうしたのかもしれない

If IMEStatus = 4 Then

SendKeys ("{kanji}")


これは、日本語入力モードの時に、あるフォームを表示させた時に
そのフォームがSendkeyを受けるものだった時に使っている。
フォームの呼び出しのコードに上記コードを付加して使ってる。


Sub IMEの現在の状態()
状態 = IMEStatus()
MsgBox 状態 & "です", vbInformation, "ＩＭＥの現在の状態"
End Sub

これでIMEStatus関数の戻り値
1 オンの状態
2 オフの状態
4 全角ひらがな入力モード
5 全角カタカナ入力モード
6 半角カタカナ入力モード
7 全角英数入力モード
8 半角英数入力モード