Hola a todos,
Tengo un Userform con varios CommandButtons. Quisiera que cuando el cursor
del mouse está sobre el CommandButton1 (sin necesidad de clickearlo) se
despliegue en pantalla una imagen (o un archivo pdf, o una hoja de la
planilla), y que cuando el cursor se desplace a otro sitio, desaparezca la
imagen y nuevamente quede visible el Userform.
Prové con esta secuencia, insertando la imagen en el formulario UserForm2.
Sin embargo, no me sirve porque requiere cerrar el UserForm2 para volver al
UserForm1. Es decir, si muevo el cursor, se mantiene en pantalla el UserForm2
hasta cerrarlo, y necesito que se cierre solo.
Private Sub CommandButton1_MouseMove( ByVal Button As Integer, ByVal Shift
As Integer, ByVal X As Single, ByVal Y As Single)
With CommandButton1
If (X >= 5 And Y >= 5) And (X <= .Width - 5 And Y <= .Height - 5) _
Then Userform2.Show Else UserForm1.Repaint
End With
End Sub
Muchas gracias de antemano por cualquier ayuda.
Leer las respuestas