Prev: autofilter master copy data to worksheet
Next: Help with forcing chart axes scale
From: Suresh Lohar on 22 May 2010 08:16
I want to know the method, how do I get text blink in a excel sheet.
From: Tom Hutchins on 22 May 2010 09:28
You have to use a macro to do that in Excel. This link explains how:
http://www.cpearson.com/Excel/BlinkingText.aspx

If you are new to macros, this link to Jon Peltier's site may be helpful:
http://peltiertech.com/WordPress/2008/03/09/how-to-use-someone-elses-macro/

Hope this helps,

Hutch

"Suresh Lohar" wrote:

> I want to know the method, how do I get text blink in a excel sheet.
From: Rick Rothstein on 22 May 2010 10:18
Just to follow up on Tom's message... be sure to read the Summary section at
the bottom of the webpage for that first URL link... ESPECIALLY the part in
parentheses on that last bulleted item.

--
Rick (MVP - Excel)



"Tom Hutchins" <TomHutchins(a)discussions.microsoft.com> wrote in message
news:1841CFDF-71F2-437D-963E-0D649EEF5D83(a)microsoft.com...
> You have to use a macro to do that in Excel. This link explains how:
> http://www.cpearson.com/Excel/BlinkingText.aspx
>
> If you are new to macros, this link to Jon Peltier's site may be helpful:
> http://peltiertech.com/WordPress/2008/03/09/how-to-use-someone-elses-macro/
>
> Hope this helps,
>
> Hutch
>
> "Suresh Lohar" wrote:
>
>> I want to know the method, how do I get text blink in a excel sheet.

From: Suresh Lohar on 24 May 2010 08:41
Thanks, macros are working but only when I run macros.

Otherwise when I open the file, it doesn't blink automatically.

Why is so sir.

Suresh
From: Suresh Lohar on 24 May 2010 09:45

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("CALCULATION").Range("D4").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("CALCULATION").Range("D4").Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
End Sub
Private Sub Workbook_Open()
StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub


I used this macro, but text blink only then when I run the macros.
When I open this file, Text doesn't blink automatically.
Kindly help sir in this regard. Thanks a lot.

 |  Next  |  Last
Pages: 1 2
Prev: autofilter master copy data to worksheet
Next: Help with forcing chart axes scale