تغيير حجم اليوزرفزرم ليتناسب مع حجم اي اشاشة تلقائياً

[Alaaq3]

السلام عليكم ورحمة الله وبركاتة : الاخوة الاعزاء : لدي يوزرفورم اعمل عليه في البيت وعلى شاشة حجمها 27 انج والوضع تمام ولكن عندما جربت هذا اليوزرفورم على شاشة اقل حجماً ظهرت بعض  المشاكل حيث ان جزء من اليوزفورم لايظهر بسسب كبر حجمة على الشاشة الصغيرة . فما هو الحل؟

[عبدالفتاح في بي اكسيل]

نقر  مرتين  على  اليوزرفورم   والصق  هذا  الكود    لا ادري  اذاكان  هذا  يفي  بالغرض 

Private Sub UserForm_Activate()
With Application
    Me.Top = .Top
    Me.Left = .Left
    Me.Height = .Height
    Me.Width = .Width
End With
End Sub

 

[أ / محمد صالح]

بعد إذن أخي الكريم @عبدالفتاح في بي اكسيل

كانت لي محاولة في هذا الشأن منذ عام 2011 في الأكسس

فقمت بتطويع الكود للعمل مع نماذج الاكسل

فقط يتم تحديد أفضل عرض bestw وأفضل ارتفاع besth في الكود  في حدث UserForm_Initialize وهما دقة الشاشة التي تم التصميم عليها

بالتوفيق

resizeform.xlsb