كيف اجعل الفورم يناسب جميع الشاشات دون التعديل عليها

[زوهير]

السلام عليكم ورحمة الله

 

هل من كود يجعل الفورم يتناسب مع جميع الشاشات دون التعديل عليها

وجزاكم الله خيرا  مسبقا

[الصـقر]

اخى الحبيب ضع هذا الكود بالفورم

هو من اعمال وكنوز اخى الحبيب ابن مصر الغالى المهندس احمد 

Private Sub UserForm_Initialize()
Dim Zo%
Dim ZH#, ZW#, AL#, AT#, AH#, AW#
Dim FH!, FW!
''''''''''''''''''''''
AH = Application.Height: AW = Application.Width
AL = Application.Left: AT = Application.Top
FH = Height: FW = Width
ZH = AH - FH: ZW = AW - FW: Zo = Zoom
If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW)
''''''''''''''''''''''
Move AL, AT, AW, AH
If Zo <> 100 Then Zoom = Zo
End Sub

تقبل تحياتى 

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب حسام

ونسأل الله أن يكون الأخ الغالي بن مصر بخير وفي صحة وعافية (والله إني أفتقد وجوده .. من لديه أخبار عنه فليبلغنا بها .. ويوصله سلامنا ليه .. لعله يكون بخير إن شاء الله)

[زوهير]

عذرا عن التأخر جزاكم الله خيرا

وجزا الله صاحب الكود خير الجزاء وجعل غيابه خيرا

[محمد لطفى]

رائع جدا جدا

[الزباري]

من تجاربي في تكبير الفورم ليتناسب جميع الشاشات

Private Sub UserForm_Initialize()
 With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 80)
Width = .Width
Height = .Height
Left = 0
Top = 0
End With
End Sub

[ياسر خليل أبو البراء]

كود رائع أخي الزباري

لا حرمنا الله من أكواد الجميلة والمفيدة

تقبل تحياتي