It won't work... Just want to confirm whether do you want to blink your text
in a label or in cells...??
Regards
Deepak
On Wed, Sep 7, 2011 at 7:30 PM, Bheema Shankar <shankar.n...@gmail.com>wrote:
> Deepak ji
>
> I made little changes to your code to blink my label caption on the
> form:
>
>
> 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 = Label1.Caption
> 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
> Label1.Caption = MyArray(R)
>
> 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
> Label1.Caption = MyArray(R)
>
> For DelayLoop2 = 1 To 20000000
> Next DelayLoop2
> Next i
> 'Range("D" & 3 + R & ":D20").ClearContents
> Next R
> End Sub
>
>
> Dont understand where I did wrong. its not working
>
> 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
>
--
----------------------------------------------------------------------------------
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
