طريقة عرض برنامج على ملف إكسل على كامل الشاشة مهما كان نوعها بشكل آلي

[Salem2020]

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

أخواني الاكارم

تجدون في الرابط التالي

https://drive.gogle.cofile/d/1xH_gFE0KqQwRWVm_n627At5EDnE8nq/view

إكسل بحجم 4 ميجابايت (لهذا السبب لم استطع رفعه مباشرة مع الموضوع ) وهذا الملف عبارة عن برنامج متكامل لإدارة مدرسة يحتوي على واجهات ووحدات ماكرو وأزرار والعديد من المميزات الأخرى

وقد تم ضبط حجم الصفحات والشيتات بما يتناسب مع دقة شاشة الكمبيوتر الخاص بي وهي 1080 بكسل في 1920 بكسل كون البرنامج يعرض في وضع ملء الشاشة.

ولكن عند نقل الملف إلى جهاز كمبيوتر آخر فيه إعدادات  الشاشة مختلفة هنا يحدث الخلل حيث يتم اقتصاص واجتزاء واختفاء بعض الاطراف والأزرار بحكم اختلاف عرض الشاشة.

المطلوب هو : هل هناك كود معين استطيع من خلاله جعل البرنامج يتخذ بشكل آلي وتلقائي حجم الشاشة التي يعرض عليها مهما كانت دقتها أو ابعادها

ارجوا ان يكون المطلوب واضح ولكم جزيل الشكر والتقدير

كلمة المرور لفتح البرنامج هي : 2522004

كلمة المرور لفتح محرر الاكواد : 3061979

[أبومروان]

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

ادخل علي هذا الموضوع