Blinking Text
 

I want to know the method, how do I get text blink in a excel sheet.

Blinking Text
 

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/200...e-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.

Blinking Text
 

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" wrote in message
...
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/200...e-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.

Blinking Text
 

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

Blinking Text
 

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.

Blinking Text
 

The Workbook_Open and the Workbook_BeforeClose procedures are workbook event
code and, as such, must be placed in the ThisWorkbook module, not the BAS
Module you now have them in (macros go in the BAS Module, but event code
goes in the sheet or workbook module that they apply to). You can open the
ThisWorkbook module by double clicking the ThisWorkbook entry from Project
window.

--
Rick (MVP - Excel)



"Suresh Lohar" wrote in message
...

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.

Blinking Text
 

sir, many many thanks, it works now.

Thanks for quick and kind cooperation.

Suresh Lohar