Menu

Blinking Text?

Search this Thread

#1

Report Post

Posted to microsoft.public.excel.programming

Auric__

Auric__ is offline

external usenet poster

Posts: 538

Default

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

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to get a blinking text in Excel 2007?	Harry	Excel Discussion (Misc queries)	1	November 15th 08 09:32 PM
Blinking text	somaloft	Excel Worksheet Functions	1	May 3rd 08 03:01 PM
Blinking Text	Esra Dekan	Excel Worksheet Functions	43	February 19th 08 12:42 AM
how do I add flashing text or blinking text in Excel?	Paula Brennan	Excel Discussion (Misc queries)	1	October 31st 06 07:27 AM
Blinking Text	Jerry[_11_]	Excel Programming	4	October 3rd 03 04:40 AM

All times are GMT +1. The time now is 11:10 PM.

About Us

"It's about Microsoft Excel"

Contact Us ExcelBanter forum home Privacy Statement