Hi,

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

Yes, it is possible to animate text in Excel. You can create a crawling footnote or moving header by using the animation feature in Excel.

Here are the steps to create a crawling footnote:

1. Open a new or existing Excel spreadsheet.
2. Click on the "Insert" tab in the ribbon.
3. Click on the "Text Box" button in the "Text" group.
4. Draw a text box on the spreadsheet where you want the crawling footnote to appear.
5. Type the text you want to animate in the text box.
6. Click on the "Animations" tab in the ribbon.
7. Click on the "Add Animation" button in the "Advanced Animation" group.
8. Select the "Custom Path" animation from the drop-down menu.
9. Click and drag the green dot on the animation path to create the path you want the text to follow.
10. Click on the "Effect Options" button in the "Advanced Animation" group.
11. Select the "After Previous" option in the "Start" drop-down menu.
12. Adjust the duration and delay of the animation as desired.
13. Click on the "Play" button in the "Preview" group to preview the animation.

Here are the steps to create a moving header:

1. Open a new or existing Excel spreadsheet.
2. Click on the "Insert" tab in the ribbon.
3. Click on the "Text Box" button in the "Text" group.
4. Draw a text box on the spreadsheet where you want the moving header to appear.
5. Type the text you want to animate in the text box.
6. Click on the "Animations" tab in the ribbon.
7. Click on the "Add Animation" button in the "Advanced Animation" group.
8. Select the "Motion Paths" animation from the drop-down menu.
9. Select the motion path you want the text to follow from the "Lines" or "Curves" options.
10. Click and drag the green dot on the animation path to create the path you want the text to follow.
11. Click on the "Effect Options" button in the "Advanced Animation" group.
12. Select the "After Previous" option in the "Start" drop-down menu.
13. Adjust the duration and delay of the animation as desired.
14. Click on the "Play" button in the "Preview" group to preview the animation.

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?

That is totally beyond COOL.............I grabbed it for my goodie-box.

Thanks for posting it Kostis

Vaya con Dios,
Chuck, CABGx3



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

Chuck,

glad you liked it. Fellow postmen's remarks are always appreciated.

Kostis

CLR wrote:
That is totally beyond COOL.............I grabbed it for my goodie-box.

Thanks for posting it Kostis

Vaya con Dios,
Chuck, CABGx3



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

You are most deserving..............BTW, might it be modified to operate as a
change event macro so it will start and run if the value in A1 = 9 and stop
if it's not........I tried, but was not successful......

Vaya con Dios,
Chuck, CABGx3



"cn.stanton" wrote:

Chuck,

glad you liked it. Fellow postmen's remarks are always appreciated.

Kostis

CLR wrote:
That is totally beyond COOL.............I grabbed it for my goodie-box.

Thanks for posting it Kostis

Vaya con Dios,
Chuck, CABGx3



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

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?

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?

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?

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?