animate text in Excel?

  • Thread starter Thread starter Guest
  • Start date Start date
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
 
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

PowerPoint Freeze animation 1
PowerPoint Super Stuck and Desperately Need Help 0
Excel 2007 Animated Text 9
PowerPoint Animations in hyperlink slideshow 0
animate text in Excel 2003 2
PowerPoint Animations 0
cell animation 1
How Do I? Perform simplae Average on a indexed text location 9

Back
Top