thank you deepu
On Sep 7, 5:42 pm, deepu <deepaktheind...@gmail.com> wrote:
> 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
