VBA: evento MouseMove para añadir comentarios |
Responder |
Autor | |
chucho
Nuevo Unido: 03/Agosto/2020 Localización: Asturias Estado: Sin conexión Puntos: 13 |
Tema: VBA: evento MouseMove para añadir comentarios Enviado: 24/Septiembre/2020 a las 17:43 |
Buenas tardes En mis Excel suelo poner imágenes que llaman a Macros y aunque la mayoría de las imágenes son autoexplicativas quería poner una ayuda que se mostrase al pasar el ratón por alguna de ellas. He visto el ejemplo siguiente https://excelforo.blogspot.com/2016/09/vba-evento-mousemove-Autoforma.html Pero yo lo quería simplificar y poner la ayuda en la barra de estado al pasar el ratón por la imagen. Application.StatusBar = "Mensaje que explique lo que hará la macro" Y quitar la ayuda cuando el ratón no estuviese sobre la imagen. Application.StatusBar = "false" No se si esto es posible en Excel, pero he buscado y mirado en muchos foros y no he visto nada que me ilumine. Gracias PD: Se me olvidaba He probado a asignarle un
hipervínculo con información en pantalla que hace lo que quiero, pero
lamentablemente se desactiva la llamada a la macro. Borrando el
hipervínculo se restaura la invocación a la macro. He probado también a crear dos imágenes, una con la macro y otra con el hipervínculo, superponiéndolas y echando al fondo la del hipervínculo, pero no funciona. Lo único que se me ocurre es poner una imagen con un interrogante al lado de la imagen de la macro para que funcione el hipervínculo de ayuda. Esta solución me puede servir, pero si alguien conoce algo más elegante se lo agradecería. Editado por chucho - 24/Septiembre/2020 a las 19:27 |
|
De DBIII a Clipper luego con access y para mis apaños feliz con Excel.
|
|
AnSanVal
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 16/Marzo/2005 Localización: España Estado: Sin conexión Puntos: 5976 |
Enviado: 25/Septiembre/2020 a las 09:39 |
Depende del tipo de imagen que utilices, podrás disponer del evento MouseMove o no. Por ejemplo en
un control de imagen ActiveX puedes
disponer de él, pero para hacer efectiva la idea que comentas, deberías poner
dos imágenes una sobre otra, siendo la de atrás un poco mayor (para que
sobresalga), de modo que al pasar el cursor sobre la interior se muestre el
mensaje y al abandonar la imagen interior pasaría sobre la imagen exterior que
lo borrará. Ejemplo: Private
Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _ ByVal X As Single, ByVal Y As Single) Application.StatusBar = "Mensaje de ejemplo" End
Sub Private
Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _ ByVal X As Single, ByVal Y As Single) Application.StatusBar = False End Sub |
|
Saludos desde Tenerife.
|
|
chucho
Nuevo Unido: 03/Agosto/2020 Localización: Asturias Estado: Sin conexión Puntos: 13 |
Enviado: 25/Septiembre/2020 a las 10:01 |
Buenos días AnSanVal Muchas gracias por tu respuesta y el tipo de imagen que incrusto no me permite el control sobre ella. Voy a optar por la imagen adicional con el hipervínculo que no queda del todo mal, además no hay que grabar VBA, el mensaje sale al lado de la imagen y el hipervínculo además del mensaje informativo realizo un desplazamiento al principio de la hoja si se pulsa la imagen de ayuda. Saludos,
Editado por chucho - 25/Septiembre/2020 a las 16:08 |
|
De DBIII a Clipper luego con access y para mis apaños feliz con Excel.
|
|
AnSanVal
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 16/Marzo/2005 Localización: España Estado: Sin conexión Puntos: 5976 |
Enviado: 25/Septiembre/2020 a las 21:51 |
OK, cierro el hilo.
|
|
Saludos desde Tenerife.
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |