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

تغيير خلفية النص المتحرك في user form


إذهب إلى أفضل إجابة Solved by محمد هشام.,

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

خطوات تغيير خلفية النص المتحرك في UserForm وجعلها نفس خلفية UserForm باستخدام VBA:

1. افتح ملف Excel الذي يحتوي على UserForm.
2. انقر بزر الماوس الأيمن فوق UserForm في نافذة مشروع VBA وحدد "عرض الكود".
3. في نافذة الكود، أضف السطر التالي:

Private Sub UserForm_Initialize()
    Me.BackColor = RGB(255, 255, 255)
End Sub

 

4. في السطر أعلاه، قم بتغيير قيم RGB (255، 255، 255) إلى لون الخلفية المطلوب.
5. احفظ التغييرات وأغلق نافذة الكود.
6. قم بتشغيل UserForm للتحقق من التغييرات.

**ملاحظة:**

* سيؤدي هذا الكود إلى تغيير لون خلفية النص المتحرك في UserForm إلى نفس لون خلفية UserForm.
* يمكنك أيضًا استخدام خاصية BackColor لعناصر التحكم الفردية في UserForm لتغيير لون خلفيتها بشكل منفصل.

 

تم تعديل بواسطه 2024
رابط هذا التعليق
شارك

  • أفضل إجابة

اخي خلفية اليوزرفوم عبارة عن صورة لا يمكن جلب لونها الا الشريط المتحرك 

ربمايمكنك تحديد لون يشبه لون الصوة مثلا body BGCOLOR ='&003366'

وتعديل حجم الكتابة' بما يناسبك مثلا  size='20

Private Sub UserForm_Initialize()
Dim LaCouleur As String
Dim Te
LaCouleur = xlThemeColorLight1
Te = ("برنامج المخازن يرحب بكم . صل على محمد ")
Me.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='&003366' scroll='no'><font color= " & LaCouleur & " size='20' face='NEW'>" & _
"<marquee direction=right>" & Te & "</marquee></font></body></html>"
End Sub

 

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

29 دقائق مضت, محمد هشام. said:

اخي خلفية اليوزرفوم عبارة عن صورة لا يمكن جلب لونها الا الشريط المتحرك 

ربمايمكنك تحديد لون يشبه لون الصوة مثلا body BGCOLOR ='&003366'

وتعديل حجم الكتابة' بما يناسبك مثلا  size='20

Private Sub UserForm_Initialize()
Dim LaCouleur As String
Dim Te
LaCouleur = xlThemeColorLight1
Te = ("برنامج المخازن يرحب بكم . صل على محمد ")
Me.WebBrowser1.Navigate _
"about:<html><body BGCOLOR ='&003366' scroll='no'><font color= " & LaCouleur & " size='20' face='NEW'>" & _
"<marquee direction=right>" & Te & "</marquee></font></body></html>"
End Sub

 

استاذ ورئيس قسم  وقائد بارك الله فيك اخي الكريم

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information