View Single Post
  #10   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Louise Louise is offline
external usenet poster
 
Posts: 217
Default animated text in excel

Hi
That's very kind of you to offer but please don't spend too much time on it.
I just wondered if may be I had done something wrong.

Very clever macro!!

Thanks again, Louise.

"vezerid" wrote:

Louise,
I did not think of the locking aspect at all, I just scripted a quick
macro to do the marquee. Later today, when I am free, I will come up
with a more complete solution that does not lock the spreadsheet (and
has a different manner for activating).

Regards,
Kostis Vezerides

Louise wrote:
Apologies, I've got it to work now. when you want it to stop, do you just
Escape? It 'locks' the rest of the worksheet whilst it is running.

Louise

"cn.stanton" wrote:

Vijay,

the following macro will animate in cell B21 the contents of cell B20.
It will insert some spaces before and after. It will create a marquee
effect.

The loop For j = 1 to 300000 ... Next j is for delay. You can control
the delay by changing the 300000.

Sub ANIMTEXT()
st = " " & Range("B20") & " "
i = 0
While True
Range("B21").Value = Mid(st, i Mod Len(st) + 1, 10)
For j = 1 To 300000
k = k + 1
Next j
i = i + 1
Wend
End Sub

HTH
Kostis Vezerides


Vijay_India wrote:
Hi,

Is is possible to animate text in excel? a crawling footnote or moving header?