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.

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

"TUNGANA KURMA RAJU" wrote in
message ...
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" wrote:

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

"TUNGANA KURMA RAJU" wrote in
message ...
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.

It doesn't matter what type of object you insert, you will still be working
with it's .Visible property.

Mike F
"TUNGANA KURMA RAJU" wrote in
message ...
shall I create Drawing Objects?

"Mike Fogleman" wrote:

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

"TUNGANA KURMA RAJU" wrote
in
message ...
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.

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



---
Regards.
Norman


"TUNGANA KURMA RAJU" wrote in
message ...
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.