laurent999
XLDnaute Occasionnel
Bonjour a tous,
Hier je cherchais une solution pour faire un texte dans une forme rectangle sous excel.
J'ai trouvé ceci:
Private Sub Worksheet_Activate()
t = " Nouvelle lettre d'info cliquez ici...."
Do
If ActiveSheet.Name <> "Page 1 Franchise" Then
Exit Sub
End If
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = Left(t, 50)
t = Right(t, Len(t) - 1) & Left(t, 1)
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
Loop
End Sub
Que j'ai adapté a mon besoin.
Le texte défile de la gauche vers la droite.
Je n'arrive pas à trouver la solution pour qu'il aille de bas en haut.
Si quelqu'un peut m'aider?
Par ailleurs si en plus de cela, il est possible de faire en sorte d'affecter une macro sur chaque phrase défilant dans la forme, je suis preneur.
Merci,
Laurent.
Hier je cherchais une solution pour faire un texte dans une forme rectangle sous excel.
J'ai trouvé ceci:
Private Sub Worksheet_Activate()
t = " Nouvelle lettre d'info cliquez ici...."
Do
If ActiveSheet.Name <> "Page 1 Franchise" Then
Exit Sub
End If
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = Left(t, 50)
t = Right(t, Len(t) - 1) & Left(t, 1)
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
Loop
End Sub
Que j'ai adapté a mon besoin.
Le texte défile de la gauche vers la droite.
Je n'arrive pas à trouver la solution pour qu'il aille de bas en haut.
Si quelqu'un peut m'aider?
Par ailleurs si en plus de cela, il est possible de faire en sorte d'affecter une macro sur chaque phrase défilant dans la forme, je suis preneur.
Merci,
Laurent.
