Mostrar imagen al posicionar el mouse sobre un objeto.

09/03/2008 - 20:54 por FeCel | Informe spam
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.

Preguntas similare

Leer las respuestas

#6 FeCel
11/03/2008 - 04:53 | Informe spam
Muchas gracias por la ayuda. Finalmente en lugar de expandir/contraer el
Userform, hice un Frame con la imagen de fondo, el que normalmente está
invisible y ubicado en el lugar en que quiero que se despliegue. Cuando el
mouse pasa sobre el CommandButton, el Frame se hace visible mostrando la
imagen. Este es el código:

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 Frame1.Visible=True Else Frame1.Visible=False
End With
End Sub

Saludos



"Héctor Miguel" wrote:

hola, !

> ... el codigo. Si bien permite ampliar o reducir el tamano del UserForm, no es aplicable a lo que pretendo hacer.
> En mi UserForm tengo un CommandButton llamado "Imprimir", y deseo que cuando hagas click sobre el, imprima.
> Pero cuando solo pases el cursor sobre el, se despliegue una imagen (o puede ser tambien una hoja del Workbook)
> con ciertas recomendaciones para imprimir (son dibujos, no texto).
> Lo ideal es que lo que se muestre desaparezca al sacar el cursor del CommandButton "Imprimir", y no requiera "cerrar" la imagen...

por que no pruebas poniendo tu imagen dentro del area "expandible/ocultable" del userform ?
de lo contrario, al mostrar OTRO objeto, el Userform1 ya no estara "en control de sus eventos" :-((

saludos,
hector.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida