エクセルでゲームパッド対応させるには？

質問

今エクセルでゲームを作っていて、ゲームパッドで（十字キー）上下左右に反応させたいのですが、どうマクロを組んだらいいのかわからないのでできればおしえてください。お願いします
ボタンについてもおしえ（ｒｙ←
If JS(JoyID).dwXpos = 0 Then 　←は動いた
If JS(JoyID).dwYpos = 0 Then ←は動かない ???????

Declare Function joyGetPos Lib "winmm.dll" (ByVal ujoyID As Long, pji As _
JOYINFO) As Long
Type JOYINFO
dwXpos As Integer
dwYpos As Integer
dwButtons As Integer
End Type
Dim JS(255) As JOYINFO

Sub a()

joyGetPos JoyID, JS(JoyID)
If JS(JoyID).dwXpos = -1 Then　　　’キャラクタ移動
＜省略＞

End If
DoEvents
End Sub

回答No.1

noname#198951 · ベストアンサー

すべてをデフォルト環境で動作させるのでなければ、Joytokeyというツールを使えば、マウスやゲームパッドの動作をキー入力に変換する事ができますよ。

お礼

joyTokeyと検索してダウンロードしてみたらキャラクタが動きました！ありがとうございます