Excel VBA Googleデスクトップ検索のようなショートカットキーの設定

Question

Googleデスクトップ検索で使われていた下記ショートカットキーでフォームを表示する設定を行いたいと考えています。
{Ctrlキーを１秒以内に２度連続で押す}

###現状 ショートカットキー{F1}の場合
F1キーを押す度にフォームを表示・非表示する

Private Sub Workbook_Open()
   Application.OnKey "{F1}", "toggleForm"
End Sub

Public Sub toggleForm()
    If UserForm1.Visible Then
        Unload UserForm1
    Else
        UserForm1.Show
    End If
End Sub

###実現したいこと ショートカットキー{Ctrlキーを１秒以内に２度連続で押す}
Ctrlキーを１秒以内に２度連続で押す度にフォームを表示・非表示する

###試したこと
とりあえずイメージが伝わるようにと、フォームコントロール上で実装してみました。

Dim doublePressingFlag As Integer
Dim previousKey As Integer
Dim t As Single
Private Sub CheckBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = previousKey Then        '前回と同じキーが押された場合
        If Timer() - t <= 1 Then          '１回目と２回目の押下時刻の差が１秒以内
            doublePressingFlag = True     '２度押しフラグを立てる
        Else
            previousKey = 0               '時間制限を超過したので、前回押下キーを初期化
        End If
    Else                                 '前回と違うキーが押された場合
        previousKey = KeyCode             '前回押下キーを初期化
    End If
    t = Timer()                           'キーが押された時刻を記録
    
    If doublePressingFlag Then
        Call toggleForm                  '制限時間内にキーが２度押しされた場合はフォームを表示・非表示
    End If
End Sub

###発生している問題・エラーメッセージ
フォームコントロールのkeyDownイベントでは問題なく実現できたのですが、
これと同じ機能をワークシート上で行う方法が分かりません。
キーの２度押しを拾うとなるとAPIを使う事になるのでしょうか。

###補足情報(言語/FW/ツール等のバージョンなど)
Excel 2010

Answer 1

ご質問の内容に合致しそうなものがStack Overflowで回答されていました。
抜粋ははばかられたので、リンクだけ示します。

Can I capture and emulate a KeyDown event in Excel VBA?

コードを見ると、Windows APIのPeekMessage() でキー押下をキャプチャーし、
あらかじめFindWindow() で見つけておいたExcelのウィンドウ("XLMAIN"ウィンドウ)へ
SendKeys() でキー押下をシミュレートしています。
Excel 2013でも"XLMAIN"だったので、共通と思ってもよさそうです。

これを参考にさせてもらって、タイマー監視とフォームの表示/非表示のトグルをうまく組み合わせれば、
目的の機能が実現できる気がします。

Comments

[zorac]

ありがとうございます。明日試してみたいと思います。

[zorac]

遅くなりましたが無事目的を達成できました。
ありがとうございました。