Thread: Blinking Text
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default Blinking Text

Hi Jerry

There is a way if you really want
here is an example that Bill Manville posted


The following code will blink any cells that have the style Blink
(create a new style using Format / Style). Format the cell concerned
with style Blink and then run macro Flash to initiate the process.
Since the cell is blank if not showing ERROR you will not see the
blinking unless ERROR is displayed.

Dim NextTime As Date

Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Blink").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Styles("Blink").Font.ColorIndex = xlAutomatic
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Jerry" wrote in message ...
Hello,

And, THANK YOU for your Time, Help, and Advise!!! :)


Is there a method/function/property/etc. that will cause
text to blink that is placed in a form box object (text
box, list box, label box, etc.) ,,,,even if it takes the
or'ing of a control type character to each byte?

Thanks again for your Time, Help, and Advise!!!! :)

Jerry