WebBrowser
Résolu
adohane
-
adohane -
adohane -
Bonjour,
j'ai un WebBrowser dans un userform qui fait defiler dutexte de droite à gauche
toute fois je veux inverser le défilement de gauche à droite le code est le suivant:
Private Sub UserForm_Initialize()
ParametresHtml "ãÌãæÚÉ ãÏÇÑÓ áÑÌÇã äíÇÈÉ ÇáÍæÒ", "#000099"
End Sub
'scrollAmount définit la vitesse de défilement.
Private Sub ParametresHtml(LeTexte As String, LaCouleur As String)
Me.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " _
& LaCouleur & " size='5' face='Arial'>" & _
"<marquee scrollamount=6>" & LeTexte & "</marquee></font></body></html>"
End Sub
'---
merci à vous
j'ai un WebBrowser dans un userform qui fait defiler dutexte de droite à gauche
toute fois je veux inverser le défilement de gauche à droite le code est le suivant:
Private Sub UserForm_Initialize()
ParametresHtml "ãÌãæÚÉ ãÏÇÑÓ áÑÌÇã äíÇÈÉ ÇáÍæÒ", "#000099"
End Sub
'scrollAmount définit la vitesse de défilement.
Private Sub ParametresHtml(LeTexte As String, LaCouleur As String)
Me.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " _
& LaCouleur & " size='5' face='Arial'>" & _
"<marquee scrollamount=6>" & LeTexte & "</marquee></font></body></html>"
End Sub
'---
merci à vous
4 réponses
Bonjour,
Cela ne dépend pas du tout du code VBA, c'est en HTML qu'il faut rechercher.
10 sec de recherche Google me donnent un lien :
http://www2.csvt.qc.ca/patriotes/html/code_spec/xmpl_mrq.htm
L'exemple 6 semble illustrer ce que nous recherchons :
Donc pour ton code :
Cela ne dépend pas du tout du code VBA, c'est en HTML qu'il faut rechercher.
10 sec de recherche Google me donnent un lien :
http://www2.csvt.qc.ca/patriotes/html/code_spec/xmpl_mrq.htm
L'exemple 6 semble illustrer ce que nous recherchons :
<MARQUEE DIRECTION="right" BGCOLOR="yellow">
Donc pour ton code :
'scrollAmount définit la vitesse de défilement.
Private Sub ParametresHtml(LeTexte As String, LaCouleur As String)
Me.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color= " _
& LaCouleur & " size='5' face='Arial'>" & _
"<marquee DIRECTION="right" scrollamount=6>" & LeTexte & "</marquee></font></body></html>"
End Sub
merci pour ta réponse j'ai ajouté le code pour la direction mais ça ne marche pas il marque "right" en bleu ,....
merci pour tout!
merci pour tout!
Sans vouloir être méchant, un tout petit effort de réflexion t'aurait permit de trouver la solution...
Puisque le code HTML de cette balise est déjà entre double quote, tout paramètre ajouté en son sein doit être entre simple quote.
"<marquee DIRECTION='right' scrollamount=6>" & LeTexte & "</marquee></font></body></html>"
Puisque le code HTML de cette balise est déjà entre double quote, tout paramètre ajouté en son sein doit être entre simple quote.