Thread
:
Blinking Text?
View Single Post
#
2
Posted to microsoft.public.excel.programming
Auric__
external usenet poster
Posts: 538
Blinking Text?
On Sun, 7 Dec 2003 06:14:19 +1000, "Wazza McG" <Back Off Hairy
wrote:
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
--
auric "underscore" "underscore" "at" hotmail "dot" com
*****
PC-DOS&MS-DOS&CP/M&UNIXI'LLDIDDLEWITHOS/2WOULDN'TYOU?
Reply With Quote
Auric__
View Public Profile
Find all posts by Auric__