animate text in Excel?

[Andy Pham]

Could any one help me on how to make animate text in Excel

[Chip Pearson]

Excel does not support animated text.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Andy Pham" <Andy Pham@discussions.microsoft.com> wrote in
message
news:BE1D760C-9632-4450-971B-D1E0938502F0@microsoft.com...
> Could any one help me on how to make animate text in Excel

[CLR]

Try a Google search for "Animated text" Excel..........you'll get a zillion
hits.......but it's still not recommended in Excel.....in some cases, could
be against Government regulations I hear.

Vaya con Dios,
Chuck, CABGx3



"Andy Pham" wrote:

> Could any one help me on how to make animate text in Excel

[Starwing]

From: AV (Alain Vallon)

Sub AnimateText()
txt1 = " Allons enfants de la patrie"
txt2 = " Le jour de gloire est arrivé !"
txt3 = " Contre nous de la tyrannie"
txt4 = " L'étendard sanglant est levé"
For i = 1 To 100
[A1] = Mid(txt1, 1 + (i Mod 33), 33) & Mid(txt1, 1, (i Mod 33))
For Each c In [A1:IV100]: Next
[A2] = Mid(txt2, 1 + (i Mod 33), 33) & Mid(txt2, 1, (i Mod 33))
For Each c In [A1:IV100]: Next
[A3] = Mid(txt3, 1 + (i Mod 33), 33) & Mid(txt3, 1, (i Mod 33))
For Each c In [A1:IV100]: Next
[A4] = Mid(txt4, 1 + (i Mod 33), 33) & Mid(txt4, 1, (i Mod 33))
For Each c In [A1:IV100]: Next
Next i
End Sub