إظهار الفورم بحجم الشاشة

[أبوســـارة1973]

ما هو كود إظهار فورم معين بحجم الشاشة ، بغض النظر عن مقاس الفورم ؟

أي المطلوب أظهار الفورم بحيث يملأ الشاشة .

أرجو التعديل على هذا الكود :

Private Sub Image3_Click()

       Sheet4.Select

        End

       End Sub 

[أيسم إبراهيم]

السلام عليكم

الأخ الكريم

جرب الكود التالي

Private Sub UserForm_Initialize()

	With Application

    	.WindowState = xlMaximized

    	Zoom = Int(.Width / Me.Width * 100)

    	Width = .Width

    	Height = .Height

	End With

End Sub

منتظر ردك

دمت بخير

أيسم إبراهيم

[عفاف جمال]

السلام عليكم خى ايسم هل يمكن تطبيقه على ملف اكسل كمثال

[عبدالله باقشير]

========================

الاخ الفاضل / آيسم

========================

[أيسم إبراهيم]

السلام عليكم جميعا

الأستاذ الفاضل: العلامة خبور

مرورك تشريف كبير ووسام على صدري

الأخت عفاف

تفضلي المرفق به الكود مطبق على فورم في ملف إكسيل

دمتم جميعا بخير

أيسم إبراهيم

fullScreen userform.rar

[احمد حمور-ابوعبدالله]

اخي ايسم

بارك الله فيك

ومبروك عليكم التعادل

[أيسم إبراهيم]

السلام عليكم

أخي الحبيب أحمد

جزاك الله كل خير على مرورك العطر

وأحب أبشرك

في شركة بترول عندنا في مصر عاملة إعلان لتعيين 3 و كنت ناوي أعين إنبي فيها

بش شارطين يكون 3 زملكاوية..... أقصد 3 / 1

بس يالا خيرها في غيرها

تم تعديل أغسطس 26, 2010 بواسطه أيسم إبراهيم

[عفاف جمال]

شكرا اخى ايسم على ردك الطيب

[أبوســـارة1973]

الأخ العزيز أيسم إبراهيم

جزاك الله خير الجزاء

وتقبل منك صالح الأعمال

[konafa4000]

الله ينور

رد فى الجون ،ابسم ابراهيم،

وكود وفورم ممتازة

جزاك الله خير

konafa4000