Faire défiler texte dans Label

Question

Bonjour a toutes et tous , forum

Configuration: Windows 7 / Excel 2007 

Comment svp faire défiler dans un UserForm1.Frame4 un texte dans un Label ou dans un CommandButton

Height=19  Width=96  

Pour les mots =soit en un mot "Automatique"
  ou bien en deux mots "Sélection Cellule"

Une petite macro VBA que je pourrai appeler quand besoin

Merci a vous et de votre temps, excellent Dimanche a vous

Cdlt  Ray

michel_m · Answer

Bonjour

tu actives le contrôle supplémentaire "Navigateur Web microsoft" avec la boite à outil de l'userform; tu le dessines sur l'usf aux dimensions que tu veux (webBrowser-propriétés)

Le code ( à partir d'une Démo Michelxld-Silkyroad)

Private Sub UserForm_Initialize()   
    GadgetHtml "forum CCM: Un petit look style Broadway avec Excel...", "#000032"   
End Sub   
    

Private Sub GadgetHtml(Texto As String, Couleur As String)   
    Me.WebBrowser1.Navigate _   
        "about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " _   
        & Couleur & " size='4' face='Forte'>" & _   
        "<marquee scrollAmount=4>" & Texto & "</marquee></font></body></html>"   
End Sub

marquee scrollAmount: vitesse de défilement
size: taille du texte
face: police
pour la couleur consultes un topo Html

Michel

lermite222 · Answer

Bonjour Michel,
D'autant plus qu'il a la mémoire courte, je dirais même Trèèèèès courte.
A voir
A+

Faire défiler texte dans Label

2 réponses

Discussions similaires

Newsletters