Though MS-Excel is not an application where you can make high class
animation.. but it depends on your creativity.. how do you utilize
your knowledge to bring such an effects in Excel.. Below is the code
that I've create, you can modify it according to your requirements,
you might want to change formatting of the cells... Just paste this
code in a module and run it..
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim MyArray() As Variant
Dim i As Integer, R As Long, C As Integer
Dim vText As String
Dim DelayLoop1 As Long, DelayLoop2 As Long
Sub StartBlinking()
vText = InputBox("Enter Any Text Upto Than 10 Chars", "Text Required")
For i = 1 To Len(vText)
ReDim Preserve MyArray(1 To i)
MyArray(i) = Right(Left(vText, i), 1)
Next i
For R = 1 To UBound(MyArray)
For DelayLoop1 = 1 To 20000000
Next DelayLoop1
For i = 3 To 20 - R + 1
Range("D" & i).Value = MyArray(R)
Range("D" & i).HorizontalAlignment = xlCenter
Range("D" & i).Font.Size =
Application.WorksheetFunction.RandBetween(7, 25)
Range("D" & i).Font.Color =
RGB(Application.WorksheetFunction.RandBetween(20, 149),
Application.WorksheetFunction.RandBetween(20, 149),
Application.WorksheetFunction.RandBetween(20, 149))
For DelayLoop2 = 1 To 20000000
Next DelayLoop2
Next i
Range("D3:D" & 20 - R).ClearContents
Next R
For R = 1 To UBound(MyArray)
For DelayLoop1 = 1 To 20000000
Next DelayLoop1
For i = 20 To 3 + R - 1 Step -1
Range("D" & i).Value = MyArray(R)
Range("D" & i).HorizontalAlignment = xlCenter
Range("D" & i).Font.Size =
Application.WorksheetFunction.RandBetween(7, 25)
Range("D" & i).Font.Color =
RGB(Application.WorksheetFunction.RandBetween(20, 149),
Application.WorksheetFunction.RandBetween(20, 149),
Application.WorksheetFunction.RandBetween(20, 149))
For DelayLoop2 = 1 To 20000000
Next DelayLoop2
Next i
Range("D" & 3 + R & ":D20").ClearContents
Next R
End Sub
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Regards
Deepak
On Sep 7, 1:51 pm, Bheema Shankar <shankar.n...@gmail.com> wrote:
> Pls provide code for BLINK affect for Label caption.
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
