Is there a way to animate cell(s) boards in Excel? I think I saw a
spreadsheet in a meeting (overhead projector on a laptop) that had an
animated border in an area of cells of intrest. Please note that this was
NOT a copy, cut, etc command or operation. It was a stand alone feature that
was there when the file opened. Is this possible. Could it be possible that
this was another spreadsheet program?

There's nothing built into excel that does this kind of thing.

I guess you could write a macro that adds a border to the current selection and
then toggles it on/off every few moments.



UABCSA wrote:

Is there a way to animate cell(s) boards in Excel? I think I saw a
spreadsheet in a meeting (overhead projector on a laptop) that had an
animated border in an area of cells of intrest. Please note that this was
NOT a copy, cut, etc command or operation. It was a stand alone feature that
was there when the file opened. Is this possible. Could it be possible that
this was another spreadsheet program?

--

Dave Peterson

UABCSA Wrote:
Is there a way to animate cell(s) boards in Excel? I think I saw a
spreadsheet in a meeting (overhead projector on a laptop) that had an
animated border in an area of cells of intrest. Please note that this
was
NOT a copy, cut, etc command or operation. It was a stand alone
feature that
was there when the file opened. Is this possible. Could it be
possible that
this was another spreadsheet program?
Hi,
This code will Flash the text from one color to another continousley.
Its set for Red and White now. You can convert it to borders or any
colors you want.
-----
Select your cells, go to format/style put in the name - Flash - set
your
formating and click ok. then run your macro from a standard Module.
-----
Dim NextTime As Date

Sub Flash()
Application.ScreenUpdating = False
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"
Application.ScreenUpdating = True
End Sub

Sub StopIt()
Application.ScreenUpdating = False
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomatic
Application.ScreenUpdating = True
End Sub
-----
This is not my code, but it works.
Hope this will help you.
Dave


--
Piranha
------------------------------------------------------------------------
Piranha's Profile: http://www.excelforum.com/member.php...o&userid=20435
View this thread: http://www.excelforum.com/showthread...hreadid=374670