Animación en Excel

Junto a la creación de código VBA para los cálculos matemáticos y financieros, también es posible crear algunas divertidas aplicaciones en Excel VBA, incluyendo juegos y animación. Aunque los programadores profesionales pueden no estar interesados ​​en escribir aplicaciones, merece la pena que probar como un hobby y por satisfacción personal.

La animación se puede lograr cambiando la posición de un objeto continuamente mediante un procedimiento bucle. Dos propiedades o funciones que son necesarios para cambiar las posiciones o las coordenadas del objeto son las propiedades izquierda y superior. La propiedad Left especifica la distancia entre el borde izquierdo del objeto en píxeles del borde izquierdo de la pantalla y la propiedad Top especifica la distancia del borde superior del objeto de la frontera superior de la pantalla.

Por ejemplo, el siguiente código hace que el objeto se mueva de izquierda a derecha y luego de vuelta a la izquierda de nuevo en repetidas ocasiones.　

Sub Animacion1()

repetir:

With ActiveSheet.Shapes.Range(Array("1 Picture"))

.Left = .Left + 1

DoEvents

If .Left > 200 Then .Left = 1

End With

GoTo repetir

End Sub

Si desea mover el objeto hacia arriba y hacia abajo, cambiar el código anterior por el siguiente:

Sub Animacion2()

repetir:

With ActiveSheet.Shapes.Range(Array("1 Picture"))

.Top = .Top + 1

DoEvents 

If .Top > 200 Then .Top = 1

End With

GoTo repetir

End Sub