excel - scrolling text

I would like to be able to set up  a field where the text can scroll accross the page.

doe anyone know if this is possible.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

You may want to check this site out for your answer, I will do some more research as well.

You may also want to check out this thread:


I am unfamiliar with Visual Basic myself, is there anyone out there that can help sjvenz with this??
Hi sjvenz :-),
Since we haven't heard from you for a couple of days could you please give us an update on the status of this question?
See:  http://www.experts-exchange.com/help.jsp#hi51 Thank you, turn123's friendly update request script.
Offtopic comments about this script to http://www.experts-exchange.com/Applications/Q_21188389.html please :-).

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Hi sjvenz,

Another way you could do it would be using the API timer and the Application.StatusBar.  Paste the following into a module, and run the StartTimer sub.  The "100&" in there are the number of milliseconds between the phrase moving, the "TextToScroll" is what text to scroll.

Public Declare Function SetTimer Lib "user32" ( _
    ByVal HWnd As Long, ByVal nIDEvent As Long, _
    ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" ( _
    ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public i As Integer
Public Const TextToScroll = "Scrolling Text"

Sub StartTimer()
 i = 160
 TimerID = SetTimer(0&, 0&, 100&, AddressOf TimerProc)
End Sub

Sub EndTimer()
 On Error Resume Next
 KillTimer 0&, TimerID
 Application.StatusBar = False
End Sub

Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
    ByVal nIDEvent As Long, ByVal dwTimer As Long)
 Excel.Application.StatusBar = String(i, " ") & "Scrolling Text"
 If i = 0 Then i = 160 Else i = i - 1
End Sub

It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.