Create a animated logo

  • Thread starter Thread starter TUNGANA KURMA RAJU
  • Start date Start date
T

TUNGANA KURMA RAJU

I would like to create a animated logo(whatever the shape) with my project
name say "TKRAJU",whenever workbook opens and closes when workbook close.
 
shall I create Drawing Objects?

Mike Fogleman said:
Animation is just hiding and showing a series of objects. Each object is a
freeze -pane of the movement. Here is an example I have of 5 objects. There
is a 3 second delay between movements in my example. This can be shortened
for faster animation.

Sub Demo()
Application.Worksheets("Sheet2").Activate
Application.Wait Now + TimeValue("00:00:08")
Application.Worksheets("Sheet1").Activate
Application.Wait Now + TimeValue("00:00:03")
ActiveSheet.DrawingObjects("Group 52").Visible = False
ActiveSheet.DrawingObjects("Group 53").Visible = True
Application.Wait Now + TimeValue("00:00:03")
ActiveSheet.DrawingObjects("Group 53").Visible = False
ActiveSheet.DrawingObjects("Group 54").Visible = True
Application.Wait Now + TimeValue("00:00:03")
ActiveSheet.DrawingObjects("Group 54").Visible = False
ActiveSheet.DrawingObjects("Group 55").Visible = True
Application.Wait Now + TimeValue("00:00:03")
ActiveSheet.DrawingObjects("Group 55").Visible = False
ActiveSheet.DrawingObjects("Group 56").Visible = True
Application.Wait Now + TimeValue("00:00:03")
ActiveSheet.DrawingObjects("Group 56").Visible = False
ActiveSheet.DrawingObjects("Group 52").Visible = True
Application.Wait Now + TimeValue("00:00:03")
Application.Worksheets("Program").Activate
End Sub

Mike F
Click to expand...
 
Back
Top