TextBox1_Changeに複数の文字を入力するには

Question

マルコが発生する前に、PowerPointのActiveXテキストボックスに複数の文字を入力する必要があります。現在のマクロは、各文字が入力されると起動します。

Private Sub TextBox1_Change() 
    IF TextBox1.Value = "18" then 
     MsgBox "You have entered 18" 
    End If 
End Sub 

までの試みは、しかし、入力してタスクを実行するためにクリックが面倒で、私はすべての文字がテキストボックスに入力した後のアクションをトリガーするCommandButtonを追加する必要がありましたので、失敗していました。したがって、必要なデータが入力された後にEnter/Returnキーを押した後にマクロがトリガーされるとさらに優れています。私はKeyPressとKeyDownと、すなわち

Private Sub TextBox1_KeyDown(KeyCode As Integer, Shift As Integer) 
    If KeyCode = vbKeyReturn Then 
     MsgBox "hello" 
    End If 
End Sub 

を試してみましたが、そのコードは私のコンパイルエラーを与えた：

Procedure declaration does not match description of event or procedure having the same name.

Answer 1

おそらく、LostFocusイベントがより有用であろう。 TextBox1がオンの場合Slide 1：

Private Sub TextBox1_LostFocus() 
    MsgBox ActivePresentation.Slides(1).Shapes("TextBox1").OLEFormat.Object.Text 
End Sub