Blinking Text?

[Wazza McG]

Hi,

I would like to have some text that blinks similar to what MS Word can do
(Format/Font/Text Effects/Blinking Background). Does anyone know of a Macro
that would be able to replicate that feat using WordArt or similar on a
given worksheet named "Team Members"? That would mean that some type matter
would blink as soon as the worksheet "Team Members" was chosen and not on
other worksheets. Preferably, it would be blinking text or blinking fill in
WordArt rather than a blinking text background.

Any help you can provide will be greatly appreciated.

Regards,

Wazza McG
No email replies please - reply to the newsgroup!

 

[Auric__]

On Sun, 7 Dec 2003 06:14:19 +1000, "Wazza McG" <Back Off Hairy

Hi,

I would like to have some text that blinks similar to what MS Word can do
(Format/Font/Text Effects/Blinking Background). Does anyone know of a Macro
that would be able to replicate that feat using WordArt or similar on a
given worksheet named "Team Members"? That would mean that some type matter
would blink as soon as the worksheet "Team Members" was chosen and not on
other worksheets. Preferably, it would be blinking text or blinking fill in
WordArt rather than a blinking text background.

Paste this at the top of the sheet's code (right-click on the sheet's
tab and select "View Code"). Probably not the best way to do it, but it
works. Replace (1,1) with the R1C1 reference to the cell you want to
blink. You can also change .font.bold to something else, like (for
example) .font.color.

Private isVisible As Boolean

Private Sub Worksheet_Activate()
Dim x As Single

isVisible = True
Do
x = Timer
Cells(1, 1).Font.Bold = True
Do Until Timer > x + 0.5
If Not isVisible Then Exit Sub
DoEvents
Loop
x = Timer
Cells(1, 1).Font.Bold = False
Do Until Timer > x + 0.5
If Not isVisible Then Exit Sub
DoEvents
Loop
Loop
End Sub

Private Sub Worksheet_Deactivate()
isVisible = False
End Sub