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

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

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

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

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information