Deepak ji
I want to blink the text on the Label object on form initialize event.
On Thu, Sep 8, 2011 at 11:04 AM, Deepak Pal Singh <deepaktheind...@gmail.com
> wrote:
> 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
>
--
----------------------------------------------------------------------------------
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
