Ticker Tape - Scroll Bar

[medieval]

Thanks for looking at this one.

I would like to add a ticker scroll bar into an excel
worksheet. The ticker will need to scroll a string variable.
Does anyone have any idea's as to how this can be acheived ?

regards,
Medieval.

 

[BrainB]

Try this. A timer control would probably be better than my method of delay.

Sub test()
    Dim Mainstring As String
    Dim SmallString As String
    '---------------------------
    Mainstring = "THIS IS A LONG TEXT STRING TO SEE " _
    & "WHAT HAPPENS IN THE SCROLLBAR AND DEMONSTRATE THE PRINCIPLE" _
    & " **AGAIN** THIS IS A LONG TEXT STRING TO SEE " _
    & "WHAT HAPPENS IN THE SCROLLBAR AND DEMONSTRATE THE PRINCIPLE"
    '-------------------------------------------------
    For s = 1 To Len(Mainstring)
        SmallString = Mid(Mainstring, s, 50)
        Application.StatusBar = SmallString
        '--------------------------------------------
        ' DELAY SCROLLING
        'Application.Wait Now + TimeValue("00:00:01")
        For T = 1 To 1000000: Next T
        '--------------------------------------------
    Next
    Application.StatusBar = False
End Sub

Regards
BrianB
Use CupOfCoffee to speed up all windows applications
================================

 

[medieval]

Thats Great BrianB.
Thank you.

I threw a cup of coffee at my screen to make
the window application run faster. I'm waiting
to see if that works too.


medieval

 

[BrainB]

Just take out the "Delay" line of code - silly


Regards
BrianB
Use CupOfCoffee to speed up all windows applications
================================

 

[VBAjedi]

Brian - I think you're the one that risks looking silly. Perhaps you've forgotten what's in your sig. . .

LOL

VBAjedi