Create a animated logo
 

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.

Create a animated logo
 

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.

Create a animated logo
 

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.

Create a animated logo
 

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.

Create a animated logo
 

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.