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

Hi

I can't seem to get this to work. Am I supposed to be able to enter any
text into the cell and it animates it??

Thanks
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?