Text running

  • Thread starter Thread starter MAX
  • Start date Start date
M

MAX

Hello
I don't know if there is a code that keeps a word ( for example FOOTBALL)
running from left to the right of the cell.
I appriciate even a small help.

Thanks in advance
 
Where would you like it to run to?

English and most other languages run left to right.

Middle East countries usually run right to left.

There are various methods of text alignment in cell formatting>alignment.


Gord Dibben MS Excel MVP
 
Put your text in Cell B20 and run this code:

Sub ANIM()
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
 
Try this...
'/=================================================
Sub Macro1()
Dim i As Integer, j As Integer
Dim x As Integer, y As Integer
'
x = 10 'indent 10 times
y = 5 'perform process 5 times

For j = 1 To y
For i = 1 To x
'wait 1 second between indent
Application.Wait (Now + TimeValue("0:00:01"))
'indent
Selection.InsertIndent 1
Next i
'un-indent same # of times you
' indented to start again
Selection.InsertIndent -x
Next j

End Sub
'/=================================================
 
What do you want in A105?

FOOTBALL will always run left to right unless you use code to turn it into

LLABTOOF or orientaion to stand it on end or slanted.

I do not understand your needs.

Have any of the other replies helped in any way?


Gord
 
After looking at your response to Gord Dibben, I've changed the macro so the
Text goes in Cell A105. You can easily change this in the macro.

'/=================================================
Sub Macro1()
Dim i As Integer, j As Integer
Dim x As Integer, y As Integer
Dim strMyCell As String
'

' - - V A R I A B L E S - - - - -
strMyCell = "A105" 'where TEXT goes
x = 10 'indent 10 times
y = 5 'perform process 5 times
' - - - - - - - - - - - - - - - -

For j = 1 To y
For i = 1 To x
'wait 1 second between indent
Application.Wait (Now + TimeValue("0:00:01"))
'indent
Range(strMyCell).InsertIndent 1
Next i
'un-indent same # of times you
' indented to start again
Range(strMyCell).InsertIndent -x
Next j

End Sub
'/=================================================


--
Hope this helps.
If it does, please click the Yes button.
Thanks in advance for your feedback.
Gary Brown
 
Gary I am appriciate your great help but since I am a very beginner in these
type of programs I don't understand.
Will you please write the code for me.

Thanks in advance.
 
Max, that IS the code.
--
Hope this helps.
If it does, please click the Yes button.
Thanks in advance for your feedback.
Gary Brown
 
Gary

I completely failed to understand the needs but now I see your code in
action I am impressed.

Both with the code and your interpretaion of OP's question.


Gord
 
Because Excel can do one thing at a time.

While your code is running you must suspend all other activity.

Cool, eh?


Gord
 
Back
Top