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