excel - scrolling text

Posted on 2004-11-15
Last Modified: 2008-03-06
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.
Question by:sjvenz
    LVL 7

    Expert Comment

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

    Expert Comment

    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??
    LVL 11

    Accepted Solution

    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: Thank you, turn123's friendly update request script.
    Offtopic comments about this script to please :-).
    LVL 35

    Expert Comment

    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


    Write Comment

    Please enter a first name

    Please enter a last name

    We will never share this with anyone.

    Featured Post

    IT, Stop Being Called Into Every Meeting

    Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

    This article covers general Notes 8.5 troubleshooting information including recreating the Notes\Data folder.
    Healthcare organizations in the United States must adhere to the guidance of both the HIPAA (Health Insurance Portability and Accountability Act) and HITECH (Health Information Technology for Economic and Clinical Health Act) for securing and protec…
    The viewer will learn how to back up with the free utility from runtime software, DriveImageXML using Windows 7. Download DriveImageXML from Open folder where it was saved: Start installation by double clicking the install scrip…
    The viewer will learn how to successfully download and install the SARDU utility on Windows 7, without downloading adware.

    779 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    14 Experts available now in Live!

    Get 1:1 Help Now