マクロ Auto_Openがうまく動きません

質問

マクロ　Auto_Openについてお伺いします。
エクセル立ち上げ時IMEは半角英数になっており、手動でひらがな入力にしますが、
そこである雑誌を見ると Sub Auto_open ()
Send Keys ("{Kanji}")
End Sub
のマクロを組み込めば立ち上げ時日本語入力になるとのこと
XPの時はこれで問題なかったように記憶しております。
しかしwindows7になるとうまく働きません。ステップINで確認すると、確かに日本語入力に変わりますが、エクセル立ち上げ時、自動的に変わりません。なぜなのでしょうか。
windows7の場合OSか何か変わったのでしょうか？
なんとかwindows7でエクセル立ち上げ時、自動的に日本語ローマ字入力にしたいのですが、
どちら様か良い知恵をアドバイスお願いいたします。

回答No.1

watabe007 · ベストアンサー

Windows7-Excel2010でSendKeysが使えないようです。
代わりにAPI 関数の KeybdEvent を使ってみては如何でしょうか
'<<< ThisWorkBookモジュール >>>
Option Explicit
Private Sub Workbook_Open()
　　Call keybd_event(VK_KANJI, 0, 0, 0)
　　Call keybd_event(VK_KANJI, 0, KEYEVENTF_KEYUP, 0)
End Sub
'<<< 標準モジュール >>>
Option Explicit
Public Declare Sub keybd_event Lib "user32.dll" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const KEYEVENTF_KEYUP = &H2
Public Const VK_KANJI = &H19

参考URL：

http://hanatyan.sakura.ne.jp/vbhlp/keyevent.htm

お礼

watabe007さん早速のアドバイス有難う御座います。Ｓｅｎｄｋｅｙｓが使えないとのこと了解しました。代わりにAPI関数とのことですが、小生言葉は聞いた事がありますが、実際使用経験がありません。
至急API関数について勉強しまして、ご提案されたプロシージャーについて、トライしてみたいと思います。
ご丁寧なアドバイス有難うございました。