Sujet Précédent Sujet Suivant

Couleur webbrowser

Makamb - Modifié par jordane45 le 28/04/2014 à 12:07
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 - 28 avril 2014 à 12:13
Bonjour, Messieurs
encore une fois merci pour votre soutient sans faille.
j'ai un problème ce matin. Au fait j'ai copié une code sur un forum pour m'aider a inserrer un texte défilant dans un userform. voici le code: 
Public LeTexte As String, LaCouleur As String
Dim v As Long

Private Sub UserForm_Initialize()
 LeTexte = "ton  ___texte____  ! !"
v = 4: LaCouleur = "#OOFFFF": ParametresHtml
 End Sub

Sub ParametresHtml()
UserForm1.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#000000' scroll='no'><font color= " & LaCouleur & _
" size='2.9' face='arial'><body topmargin='0'>" & _
"<marquee scrollamount=" & v & ">" & LeTexte & "</marquee></font></body><center></html>"
End Sub


le problème, c'est que je n'arrive pas a changer la couleur du webbrowser ou du texte qu'il contient. pourriez vous me donner un coup de main.

2 réponses

Réponse 1 / 2
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
28 avril 2014 à 12:07
Bonjour,
Merci d'utiliser la coloration syntaxique pour poster du code.
Explications disponibles ICI : http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

NB: J'édite ton message pour les ajouter... merci de le faire la prochaine fois.
0
Réponse 2 / 2
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 344
28 avril 2014 à 12:13
Quel est le souci exactement ?
La modification du texte et ou des couleurs fonctionnent correctement... 

Private Sub UserForm_Initialize()
 LeTexte = "ton  ___texte____ est cool ! !"
v = 4: LaCouleur = "#OOFAAF": ParametresHtml
End Sub

Sub ParametresHtml()
UserForm1.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='#FF0000' scroll='no'><font color= " & LaCouleur & _
" size='2.9' face='arial'><body topmargin='0'>" & _
"<marquee scrollamount=" & v & ">" & LeTexte & "</marquee></font></body><center></html>"
End Sub

0

Discussions similaires

Comment fonctionne la fonction FormulaR1C1
cs_razmokets -
wape -

2 réponses
fonction modulo en VBA
krisprolss -
Benouille -

2 réponses
Dernière cellule non vide d'une colonne
cs_falafala -
Luigi13013 -

5 réponses
A quoi sert la fonction Set ?
ICIoBRa -
ICIoBRa -

3 réponses
Modulo pour chiffres à virgule
cs_ebro -
Gally -

8 réponses
Rejoignez-nous