Saltar al contenido

Mostrar MSGBOX al pulsar una tecla o un atajo de teclado

publicado

Hola a todos,

 

Me gustaría que al pulsar una tecla o un atajo de teclado, se le aparezca un mensaje en un MsgBox al usuario de la aplicación ofimática.

No sé muy bien cómo plantear el problema.

Se me ocurre lo siguiente, pero no funciona:

Sub MostrarMensaje()
   If Application.OnKey Key:="{c}" Then MsgBox "Hola mundo"
End Sub

Alguien tiene una idea mejor?

 

Gracias.

Featured Replies

publicado
  • Autor
En 23/7/2021 at 18:14 , Gerson Pineda dijo:

Onkey, tiene un argumento opcional, que es llamar a un procedimiento, bueno ahi agregas el mensaje y listo

Sub MostrarMensaje()
   If Application.OnKey Key:="{c}" Then "MiSub"
End Sub

Sub MiSub()

VBA.MsgBox "Hola mundo"

End Sub

 

Saludos 

Gracias @Gerson Pineda.

Me tocará hacerlo así... Que remedio!

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.