** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - VBA: evento MouseMove para añadir comentarios
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: evento MouseMove para añadir comentarios

 Responder Responder
Autor
Mensaje
chucho Ver desplegable
Nuevo
Nuevo


Unido: 03/Agosto/2020
Localización: Asturias
Estado: Sin conexión
Puntos: 7
Enlace directo a este mensaje 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.
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5668
Enlace directo a este mensaje 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



Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas, también será tu beneficio).

Mi sitio_web con ejemplos Excel.
Arriba
chucho Ver desplegable
Nuevo
Nuevo


Unido: 03/Agosto/2020
Localización: Asturias
Estado: Sin conexión
Puntos: 7
Enlace directo a este mensaje 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. Smile

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.
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5668
Enlace directo a este mensaje Enviado: 25/Septiembre/2020 a las 21:51
OK, cierro el hilo.  Wink
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas, también será tu beneficio).

Mi sitio_web con ejemplos Excel.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable