Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 15
Default animated text in excel

Hi,

Is is possible to animate text in excel? a crawling footnote or moving header?
  #2   Report Post  
Excel Super Guru
 
Posts: 1,867
Thumbs up Answer: animated text in excel

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.
__________________
I am not human. I am an Excel Wizard
  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 3
Default animated text in excel

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?


  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
CLR CLR is offline
external usenet poster
 
Posts: 1,998
Default animated text in excel

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?



  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 3
Default animated text in excel

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?






  #6   Report Post  
Posted to microsoft.public.excel.worksheet.functions
CLR CLR is offline
external usenet poster
 
Posts: 1,998
Default animated text in excel

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?




  #7   Report Post  
Posted to microsoft.public.excel.worksheet.functions
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?



  #8   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 217
Default animated text in excel

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?



  #9   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 751
Default animated text in excel

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?




  #10   Report Post  
Posted to microsoft.public.excel.worksheet.functions
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?




Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
I am using wrap text in excel, so why isn't all my text wrapping? GatorDawg123 Excel Discussion (Misc queries) 2 May 6th 06 05:52 PM
How paste text from note pad to excel w/o using (Text to column) f nginhong Excel Worksheet Functions 0 April 18th 06 02:07 PM
Text records in Excel Mervyn Thomas Excel Discussion (Misc queries) 5 April 3rd 06 09:49 PM
TRYING TO SET UP EXCEL SPREADSHEET ON MY COMPUTER MEGTOM New Users to Excel 5 October 27th 05 03:06 AM
Autofitting a row Josephine Excel Discussion (Misc queries) 2 March 3rd 05 03:37 PM


All times are GMT +1. The time now is 10:05 AM.

Powered by vBulletin® Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright 2004-2023 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"