ANIMATED TEXT

V

verluc

Well-known Member
Joined
Mar 1, 2002
Messages
1,451
This is a macro I found on this board.
The text goes from the left to the right.
How can I change this macro,so that the text goes from the right to the left?

Dim myText As String
Dim x As Integer, y As Integer
Dim myStart, myDelay
myText = " ........."
On Error GoTo myEnd
For y = 1 To 10
For x = 1 To 125
myStart = Timer
myDelay = myStart + 0.1
Do While Timer < myDelay
[N4] = Space(x) & myText
DoEvents
Loop
DoEvents
myStart = Timer
myDelay = myStart + 0.1
Next x
Next y
[N4] = ".................. "
myEnd:
End
An idea?Thanks
--------------------------------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
End Sub

y idea?
 

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK
Sort by date Sort by votes
This do?

Code: 
Dim myText As String
Dim x As Integer, y As Integer
Dim myStart, myDelay
myText = " ........."
On Error GoTo myEnd
For y = 1 To 10
For x = 125 To 1 Step -1
myStart = Timer
myDelay = myStart + 0.1
Do While Timer < myDelay
[N4] = Space(x) & myText
DoEvents
Loop
DoEvents
myStart = Timer
myDelay = myStart + 0.1
Next x
Next y
[N4] = ".................. "
myEnd:
End
 
Upvote 0
Hi verluc,
Only I did is
1.Add "[N4].HorizontalAlignment = xlRight" to the code
2.Amend "[N4] = myText & Space(x)"

:biggrin:

<PRE>
<FONT color=red>Sub </FONT>test2()

<FONT color=red>Dim </FONT>myText <FONT color=red>As</FONT><FONT color=red> String</FONT>

<FONT color=red>Dim </FONT>x <FONT color=red>As</FONT><FONT color=red> Integer</FONT>, y <FONT color=red>As</FONT><FONT color=red> Integer</FONT>

<FONT color=red>Dim </FONT>myStart, myDelay

myText = " ........."

<FONT color=red>On Error</FONT> <FONT color=red>GoTo</FONT> myEnd

<FONT color=red>For </FONT>y = 1 <FONT color=red>To </FONT>10

<FONT color=red>For </FONT>x = 1 <FONT color=red>To </FONT>125

myStart = Timer

myDelay = myStart + 0.1

[N4].HorizontalAlignment = xlRight

<FONT color=red>Do </FONT>While Timer < myDelay

[N4] = myText & Space(x)

DoEvents

<FONT color=red>Loop</FONT>

DoEvents

myStart = Timer

myDelay = myStart + 0.1

<FONT color=red>Next </FONT>x

<FONT color=red>Next </FONT>y

[N4] = ".................. "

myEnd:

<FONT color=red>End Sub</FONT>
</PRE>
 
Upvote 0
On 2002-09-06 02:28, Colo wrote:
Hi verluc,
Only I did is
1.Add "[N4].HorizontalAlignment = xlRight" to the code
2.Amend "[N4] = myText & Space(x)"

:biggrin:

<PRE>
<FONT color=red>Sub </FONT>test2()

<FONT color=red>Dim </FONT>myText <FONT color=red>As</FONT><FONT color=red> String</FONT>

<FONT color=red>Dim </FONT>x <FONT color=red>As</FONT><FONT color=red> Integer</FONT>, y <FONT color=red>As</FONT><FONT color=red> Integer</FONT>

<FONT color=red>Dim </FONT>myStart, myDelay

myText = " ........."

<FONT color=red>On Error</FONT> <FONT color=red>GoTo</FONT> myEnd

<FONT color=red>For </FONT>y = 1 <FONT color=red>To </FONT>10

<FONT color=red>For </FONT>x = 1 <FONT color=red>To </FONT>125

myStart = Timer

myDelay = myStart + 0.1

[N4].HorizontalAlignment = xlRight

<FONT color=red>Do </FONT>While Timer < myDelay

[N4] = myText & Space(x)

DoEvents

<FONT color=red>Loop</FONT>

DoEvents

myStart = Timer

myDelay = myStart + 0.1

<FONT color=red>Next </FONT>x

<FONT color=red>Next </FONT>y

[N4] = ".................. "

myEnd:

<FONT color=red>End Sub</FONT>
</PRE>
Click to expand...
Thanks Colo,

I'll send you via e-mail my excel program.
Can you give any comments on this via this board.
Many thanks
 
Upvote 0
Help!#@#! How do you get the text to stop? I loaded this but there is no way to exit short of amending the code or closing down. It's like the Sorcerer's Apprentice.
What is the code please to auto run this on the relevant sheet being viewed and to make it run only once or twice? What I have in mind is creating a message for users to see when they access the sheet.
 
Upvote 0
On 2002-09-06 05:01, inarbeth wrote:
Help!#@#! How do you get the text to stop? I loaded this but there is no way to exit short of amending the code or closing down. It's like the Sorcerer's Apprentice.
What is the code please to auto run this on the relevant sheet being viewed and to make it run only once or twice? What I have in mind is creating a message for users to see when they access the sheet.
Click to expand...
Hi,

Here is the code you can use and it is to place in "This workbook".
It run twice.
That's what you want?
Sub Workbook_Open()
Sheets("Sheets1").Select
Dim myText As String
Dim x As Integer, y As Integer
Dim myStart, myDelay
myText = " Good morning to all !!! "
On Error GoTo myEnd
For y = 1 To 2
For x = 50 To 1 Step -1
myStart = Timer
myDelay = myStart + 0.1
Do While Timer < myDelay
[B4] = Space(x) & myText
DoEvents
Loop
DoEvents
myStart = Timer
myDelay = myStart + 0.1
Next x
Next y
[B4] = "Have a good day !!! "
myEnd:
End
End Sub
 
Upvote 0
On 2002-09-06 07:57, Jim North wrote:
verluc,

What are you using this for?

(just curious)
Click to expand...
Hi,

I use this in an excelsheet,for a football
championsleague.This animated text is filled with the publicity of the sponsor.
Any other suggestion to use it?
 
Upvote 0
Nice Macro,

I would use it to highlight significant points of financial reports. Something like "125% to Goal This Quarter".

Thanks
 
Upvote 0
On 2002-09-06 07:36, verluc wrote:
Hi,

Here is the code you can use and it is to place in "This workbook".
It run twice.
That's what you want?
Sub Workbook_Open()
Sheets("Sheets1").Select
Dim myText As String
Dim x As Integer, y As Integer
Dim myStart, myDelay
myText = " Good morning to all !!! "
On Error GoTo myEnd
For y = 1 To 2
For x = 50 To 1 Step -1
myStart = Timer
myDelay = myStart + 0.1
Do While Timer < myDelay
[B4] = Space(x) & myText
DoEvents
Loop
DoEvents
myStart = Timer
myDelay = myStart + 0.1
Next x
Next y
[B4] = "Have a good day !!! "
myEnd:
End
End Sub
Click to expand...


Thanks. Slight change to syntax required: Sheets(Sheet1) rather than Sheets1. I will omit the B4 entry to avoid overwriting what was in it previously but a neat example.
Click to expand...
 
Upvote 0
You must log in or register to reply here.

Similar threads

A
  • Solved
Calendar form cancel button passing data to worksheet
Replies
7
Views
399
AndyEd
A
F
  • Solved
extract text from input box
Replies
2
Views
409
ferrigeu
F
A
  • Solved
Calendar issue
Replies
1
Views
1K
AndyEd
A
P
  • Question
Conflicting Codes Help Please
Replies
2
Views
476
pure vito
P
H
  • Question
Macro: Convert pdf into Excel and extract certain data to put together with file name
Replies
1
Views
2K
HeinrichPaul
H

Forum statistics

Threads
1,214,979
Messages
6,122,552
Members
449,088
Latest member
davidcom

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top