كلمات تتحرك داخل الفورم باستخدام WebBrowser

كلمات تتحرك داخل الفورم باستخدام

WebBrowser

الاكواد

الكود:: الاداة
WebBrowser1
------
Option Explicit
Public LeTexte As String
Public LaCouleur As String
---
Private Sub UserForm_Initialize()
LeTexte = Sheets("magdi").Range("a1").Text
LaCouleur = "#990000"
ParametresHtml
End Sub
Sub ParametresHtml()
UserForm3.WebBrowser1.Navigate _
"about:<html><body scroll='no'><font color= " & LaCouleur & " size='8' face='NEW'>" & _
"<marquee>" & LeTexte & "</marquee></font></body></html>"
End Sub

_________________

لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

من أحب الله رأى كل شئ جميلا

مع تحياتى مجدى يونس

عدد المساهمات : 55 تاريخ التسجيل : 24/10/2020

شكرا