Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

.Blinking text

2 views
Skip to first unread message

james

unread,
Jan 15, 1999, 3:00:00 AM1/15/99
to

Thanks for looking at this. I have a 'warning' line of text that appears
if two texting variable do no agree.
It works fine, however i would like to make it 'blink.' is there a way?
would you either share it with me or guide me to the reference location.

thanks in advance
regards,
james woollen


Bill Manville

unread,
Jan 16, 1999, 3:00:00 AM1/16/99
to
Not very satisfactory, but the following will flash any text formatted with
Style Flash between white and red text. Run Flash to start it and StopIt
when you have had enough of it.

Bill Manville
MVP - Microsoft Excel
Oxford, England


Dim NextTime As Date

Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").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("Flash").Font.ColorIndex = xlAutomatic
End Sub


james <jwoo...@mindspring.com> wrote in message
01be40cf$bcecdc40$5c0756d1@hal...

0 new messages