محمد زيدان2024 قام بنشر مايو 30 مشاركة قام بنشر مايو 30 (معدل) تغيير خلفية النص المتحرك في user form مع تكبير الخط وجلعها نفس خلفية user form بنر1.xlsb تم تعديل مايو 30 بواسطه محمد زيدان2024 رابط هذا التعليق شارك More sharing options...
Saleh Ahmed Rabie قام بنشر مايو 30 مشاركة قام بنشر مايو 30 (معدل) خطوات تغيير خلفية النص المتحرك في 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 لتغيير لون خلفيتها بشكل منفصل. تم تعديل مايو 30 بواسطه 2024 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر مايو 30 أفضل إجابة مشاركة قام بنشر مايو 30 اخي خلفية اليوزرفوم عبارة عن صورة لا يمكن جلب لونها الا الشريط المتحرك ربمايمكنك تحديد لون يشبه لون الصوة مثلا 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 2 1 رابط هذا التعليق شارك More sharing options...
محمد زيدان2024 قام بنشر مايو 30 الكاتب مشاركة قام بنشر مايو 30 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 استاذ ورئيس قسم وقائد بارك الله فيك اخي الكريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.