Besides creating Excel 2010 VBA code for mathematical and financial calculations, it is also possible to create some fun applications in Excel 2010 VBA, including games and animation. Although professionals programmers might not be interested in writing such applications, it is worthwhile trying them out as a hobby and for personal satisfaction.
Animation can be achieved by changing the position of an object continuously using a looping sub procedure.
Private Sub CmsStart_Click() repeat:With VBAProject.Sheet1.Image1 .Left = .Left + 1 DoEvents If .Left > 200 Then .Left = 1 End WithGoTo repeat End Sub
The code for the reset button is
Private Sub CmdReset_Click() With VBAProject.Sheet1.Image1 .Left = 0 End With End Sub
*The above code reset the position of the image to the far left
If you wish to make the object move diagonally, then use the properties Top and Left at the same time, as follows:
Private Sub StartButton_Click() repeat: With VBAProject.Sheet1.Image1 .Top = .Top + 5 .Left = .Left + 5 DoEvents If .Top > 200 Then .Top = 1 If .Left > 200 Then .Left = 1 End With GoTo repeat End Sub