Animar commandbutton

[DiegoLG]

Como dice el Maestro [uSER=46507]@Macro Antonio[/uSER]

Un dia de aburrimiento

Aqui te dejo un archivo, como el mismo titulo lo dice (animar commandbutton).

al pasar el mouse en el boton se cambia de color.

para los que son expertos de programacion a lo mejor tienen otras propuestas, a lo mejor pueden disminuir los códigos que yo utilizé. Y será bienvenida las propuestas.

Saludos.

Animar Boton.rar

[AlexanderS]

Me gustan este tipo de aportes, efectivamente puedes mejorar el código si agregas un modulo de clase (adjunto)

Aqui algunos de mis aportes referente a la animación de controles de formularios.

https://www.ayudaexcel.com/foro/threads/userform-con-animaciones-o-efectos-de-transicion.32222/#post-152187

Saludos y gracias por el aporte.

Animar Boton.rar

[Enigma25]

Me gusta!!!!

Guardando.......

Gracias por el aporte.

[Enigma25]

Para hacerlo aun mas interesante. Le pueden agregar en el modulo clase la siguiente linea para poner el texto en negrita :

    Boton.Font.Bold = True

..y en el evento MouseMove del formulario la siguiente linea para devolverlo a su estado normal:

Ctrl.Font.Bold = False

Saludos.

[DiegoLG]

Mis respetos a los dos @Riddle @enigma25

Saludos

[Enigma25]

Amigo [uSER=143023]@Riddle[/uSER] perdone el abuso. Como resuelve hacer que funcione dentro de un Multipage?

Trato de hacerlo pero no me sale como se debe.

[DiegoLG]

[uSER=98799]@Enigma25[/uSER] checa el archivo, a mi me funciono así

Animar Boton.rar

[Enigma25]

Descuide [uSER=143023]@Riddle[/uSER] ya lo resolvi

Private Sub MultiPage1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "CommandButton" Then Ctrl.BackColor = &H8000000F: Ctrl.Font.Bold = False
    Next
End Sub

[Enigma25]

Hola [uSER=163374]@Diego9019[/uSER] AL parecer escribirnos al mismo tiempo. Gracias hermano. Ya lo resolvì.

[Antoni]

Atendiendo al consejo de @Riddle, al que agradezco que en el aporte "Efecto Letras" me saludara , le he añadido un módulo de clase y un cambio de color al hacer click.

Macrobotones.xls

[pegones1]

Macro, me lo has dejado a "uevo" para dar el salto a la 3ª fase de animación de los botones.

Macrobotones_PW10.xls

[Enigma25]

..Me quito el sombrero...! [uSER=47802]@pegones1[/uSER]

[Antoni]

Macro, me lo has dejado a "uevo" para dar el salto a la 3ª fase de animación de los botones.

Jajaja, siempre he sabido que eras el ET maño.

[pegones1]

[uSER=98799]@Enigma25[/uSER] ponte el sombrero y siéntate para ver los botones animados haciendo doble clic.

Jajaja, siempre he sabido que eras el ET maño.

[uSER=46507]@Macro Antonio[/uSER], todas las películas clásicas de ciencia-ficción me encantan y "Encuentros en la tercera fase" fue la primera que me impactó y recuerdo que al salir del cine de su estreno, aún veía el panel de colores con el que se comunicaban los extraterrestres.

El título de la película en Latinoamérica es "Encuentros Cercanos del Tercer Tipo", traducción literal del título original en inglés: "Close Encounters of the Third Kind". Justo a la mitad del vídeo (3'10") comienza la comunicación con el panel de colores.

Adjunto un panel de botones de la cuarta fase o del cuarto tipo para poder comunicarme con los ETs "Excel Terrícolas" cercanos.

Macrobotones_PW20.xls

[Enigma25]

ponte el sombrero y siéntate para ver los botones animados haciendo doble clic.

jajaja me quitaré el sombrero pero para ponerme el casco espacial y con lentes 3d jejejeje!

Muy interesante...