اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر
كلمات تتحرك داخل الفورم باستخدام
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

 

  • Like 3

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information