From: "Dana DeLouis"<dana2@email.msn.com> 
References: <37991DCF.5A981F77@africanet.com.br><eimCHTf1#GA.230@cppssbbsa04>
Subject: Re: blinking text
Date: Sat, 24 Jul 1999 12:51:22 -0400
Lines: 87
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2314.1300
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300
Message-ID: 
Newsgroups: microsoft.public.excel.misc
NNTP-Posting-Host: 1Cust50.tnt16.fort-lauderdale.fl.da.uu.net 63.14.37.50
Path: cppssbbsa01.microsoft.com!cppssbbsa04
Xref: cppssbbsa01.microsoft.com microsoft.public.excel.misc:53819

Hello.  I have found that using 'Styles" is the best way to get this effect.
One uses an 'OnTime' macro to simply change the definition of the particular
style.
This will affect the whole Workbook in 1 shot.  Here is an example of a
macro I wrote, but do not use it very much.  It is actually very small.  You
can change it fairly easy to fit what you want.
First, go to tools, Styles, and type in a name called Blink.  This style
should be based on the Normal style.
select a couple of cells you want to 'blink' and assign the style 'Blink'.
run the BlinkOn macro.  run BlinkOff to turn it off.
I commented out some options.  I think the less options the better, but it
depends on what you want.  Also, I have found that flashing at more than
once per second is a little too fast for excel.  Hope this helps.  I never
came up with a good color combination, so if you find one that is pretty
good, please let me know.  Good Luck.  Dana DeLouis

Option Explicit
'// Code to make cells Blink
'// Must have a style called Blink
'// Dana DeLouis @ dana2@msn.com

dim nextTime As Date

Const FontColorOff = 0
Const InteriorColorOff = xlNone

Const FontColorOn = 3
Const InteriorColorOn = 8

Sub BlinkOn()
  'FlashRate = 1 Second
  nextTime = Now + Timevalue("00:00:01")
  application.OnTime nextTime, "Define_Blink"
end Sub

Sub BlinkOff()
  application.OnTime _
    EarliestTime:=nextTime, _
    Procedure:="Define_Blink", _
    Schedule:=false

'// set to default setting
  with activeworkbook.Styles("Blink")
    .Font.ColorIndex = FontColorOff
    .Interior.ColorIndex = InteriorColorOff
  end with
end Sub

Sub Define_Blink()
'// Changes the style of 'Blink'
'// This affects the whole WorkBook in 1 shot

  with activeworkbook.Styles("Blink")
    with .Font
      .ColorIndex = Iif(.ColorIndex = FontColorOn, FontColorOff,
FontColorOn)
'      .name = "Arial"<gcosta@africanet.com.br>
'      .Size = 10
'      .Bold = false
'      .Italic = false
'      .Underline = xlUnderlineStyleNone
'      .Strikethrough = false
    end with

    with .Interior
      .ColorIndex = Iif(.ColorIndex = InteriorColorOn, InteriorColorOff,
InteriorColorOn)
'      .PatternColorIndex = xlAutomatic
'      .Pattern = xlSolid
    end with
  end with
  BlinkOn
end Sub

- - - - - - E n d - - - -

Gustavo Costa  wrote in message
news:37991DCF.5A981F77@africanet.com.br...
> Fellas,
>
> does anybody know if it is possible to apply a blinking text effect in a
> cell containing a formula ???
> Please send answers/comments to gcosta@africanet.com.br
> Thanks in advance !