YANN-56
XLDnaute Barbatruc
Bonsoir à tous,
J’ai dans un Userform, un texte qui défile sous forme d’un WebBrowser.
(Avec l’avantage de ne pas être obligé d’attendre la fin de la lecture, avant autre procédure)
Dans l’USF :
Private Sub UserForm_Initialize()
INITIALISATION_MESSAGE
End Sub
Dans un module :
Public REDACTION As String
Public COULEUR_TEXTE As String
Sub INITIALISATION_MESSAGE()
REDACTION = _
"Mon texte défile ""OK"" mais j'aimerais bien avec le même fond que mon USF, ou d'une" _
& " couleur choisie, sinon avec un fond d'image... (Voire Transparent): Est-ce possible? "
COULEUR_TEXTE = "#000099"
UserForm1.WebBrowser1.Navigate _
"about:<html><body scroll='no'><font color= " & COULEUR_TEXTE & " size='5' face='NEW'>" & _
"<marquee>" & REDACTION & "</marquee></font></body></html>"
End Sub
J’aimerais bien connaître les subtilités des propriétés de ce machin.
Couleur de fond, transparence, vitesse de défilement, et s’il en existe d’autre….
Je suis preneur.
Merci d’avance si quelqu’un peut m’aider
Bonne soirée.
Yann
P.S. Je tente de joindre le fichier !
J’ai dans un Userform, un texte qui défile sous forme d’un WebBrowser.
(Avec l’avantage de ne pas être obligé d’attendre la fin de la lecture, avant autre procédure)
Dans l’USF :
Private Sub UserForm_Initialize()
INITIALISATION_MESSAGE
End Sub
Dans un module :
Public REDACTION As String
Public COULEUR_TEXTE As String
Sub INITIALISATION_MESSAGE()
REDACTION = _
"Mon texte défile ""OK"" mais j'aimerais bien avec le même fond que mon USF, ou d'une" _
& " couleur choisie, sinon avec un fond d'image... (Voire Transparent): Est-ce possible? "
COULEUR_TEXTE = "#000099"
UserForm1.WebBrowser1.Navigate _
"about:<html><body scroll='no'><font color= " & COULEUR_TEXTE & " size='5' face='NEW'>" & _
"<marquee>" & REDACTION & "</marquee></font></body></html>"
End Sub
J’aimerais bien connaître les subtilités des propriétés de ce machin.
Couleur de fond, transparence, vitesse de défilement, et s’il en existe d’autre….
Je suis preneur.
Merci d’avance si quelqu’un peut m’aider
Bonne soirée.
Yann
P.S. Je tente de joindre le fichier !
