Is it possible to have in a cell a character that blinks ?

  • Thread starter Thread starter Jack clav
  • Start date Start date
J

Jack clav

Jeanmi
One can make blink a cell, but is it possible to have a
character in a word in a cell that blinks (with Characters ?) ...

Thank you in advance,

Jean-michel
 
Hi Jean-Michel,

See Chip Pearson at:

Blinking Text In Excel
http://www.cpearson.com/excel/BlinkingText.htm

Use Chip's suggested code but try replacing Chip's
StartBlink procedure with the following adaptation:

'=============>>
PublicSub StartBlink()

With Range("A1").Characters(2, 1).Font
If .ColorIndex = xlAutomatic Then
.ColorIndex = 3
Else
.ColorIndex = xlAutomatic
End If
End With

RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub
'<<=============
 
here's one way:

Sub Blink()
With Range("A1")
If Len(.Text) > 0 Then
With .Characters(Start:=1, Length:=1).Font
.ColorIndex = IIf(.ColorIndex = 7, xlColorIndexAutomatic, 7)
End With
End If
End With
Application.OnTime Now + TimeSerial(0, 0, 1), "Blink", , True
End Sub

Put some text in A1 and then run the procedure.. it will make the first
character in A1 blink.
 
Back
Top