Necesito 2 macros, 1-. teclado 2-. pausar animaciones

¡ Hola !
Tengo 1 macro para activar el teclado, el problema es que requiero de un commandbutton y quiero hacerlo sin commandbuttons, es decir, coloco una figura, voy a insertar accion, selecciono la macro del teclado y listo... al pulsar la figura comenzara a ejecutarse la macro de teclado, yo supongo que para lograr esto requiero de un option explicit y activar el evento privado de KeyDown dentro de esta macro... sin embargo soy nuevo en esto, no se como hacer eso :/

Mi macro de teclado por ahora es... pegar este codigo en un commandbutton
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = "13" Then
MsgBox "Pulsaste enter"
End If
End Sub

Bien... Espero me puedan ayudar con ello...
La segunda macro no la tengo desarrollada, sin embargo, tengo una macro que supongo es similar a la de pausar animaciones
esta macro que tengo lo que hace es reiniciarlas, no requiere commandbutton, simplemente colocas una figura, pegas el siguiente codigo de macro y vas a insertar accion, seleccionas la macro y listo...

Sub ReiniciarAnimaciones()
Dim ReiniciarAnimaciones As Long
ReiniciarAnimaciones = SlideShowWindows(1).View.CurrentShowPosition
SlideShowWindows(1).View.GotoSlide ReiniciarAnimaciones, True
End Sub


¿Podrían ayudarme con ambas o con una sola? gracias...

PD: Me gustaria una respuesta a como hacer esto y no respuestas que me impidan hacerlo, darle una accion a las teclas no afecta la funcion de estas, el ejemplo esta en los juegos de internet...