Microsoft Office Forums - View Single Post - Move words from right to left on a label. I don't have the Timer control

Guessed · 08-30-2021, 06:15 PM

You are right, they are called labels in English versions of Office too. OK, try this code where the text is in a label called labelTicker

Code:

#If VBA7 And Win64 Then    ' For 64bit versions
    Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As LongPtr)
#Else    ' For 32bit versions
    Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
#End If

Private Sub UserForm_Activate()
  Dim iWidth As Integer, iFormWidth As Integer, iStep As Integer
  
  iStep = 1
  iFormWidth = Me.Width - 20
  With Me.labelTicker
    .Left = iFormWidth
    Do
      Sleep 20
      DoEvents
      If .Left > -1 * .Width Then
        .Left = .Left - iStep
      Else
        .Left = iFormWidth
      End If
    Loop
  End With
End Sub

Private Sub UserForm_Initialize()
  With Me
    .Top = Application.Top + 0.5 * (Application.Height - .Height)
    .Left = Application.Left + 0.5 * (Application.Width - .Width)
  End With
End Sub