اذهب الي المحتوي
أوفيسنا

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

محمد زيدان2024

بواسطه محمد زيدان2024
في منتدى الاكسيل Excel

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة محمد هشام.,

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

Saleh Ahmed Rabie

Saleh Ahmed Rabie

قام بنشر
قام بنشر (معدل)

خطوات تغيير خلفية النص المتحرك في 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
محمد زيدان2024

محمد زيدان2024

قام بنشر
  • الكاتب
قام بنشر
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

  I accept