Kodları kullanarak atış hareketlerinin animasyonunu nasıl hazırlayabiliriz ?

Sub bas()
m = 0
For k = 0 To 300
ActiveSheet.Shapes("Oval 32").Select
Selection.ShapeRange.Top = m
m = m + 1

Next k
End Sub

Şoyle birşey yaptım "serbest duşme" hareketi icin ama top ışınlanıyor gibi hareket ediyor.
__________________