Create a animated logo

[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.

 

[TUNGANA KURMA RAJU]

shall I create Drawing Objects?

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

 

[Norman Jones]

Hi Tungana,

As an alternative approach, consider using
a disappering splash screen.

See Bob Phillip's xlDynamic tutorial at:

Creating A Splash Screen
http://www.xldynamic.com/source/xld.xlFAQ0007.html