activesheet zoom

**علي المصري** · أبريل 30, 2014

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

هل من طريقة لجعل الزووم الخاص لصفحة اكسيل تتأقلم أو تكبر على حسب مقاسات الشاشة التي يتم تشغيل البرنامج عليها

شكرا

**سليم حاصبيا** · مايو 1, 2014

حدّد النطاق المناسب للتكبير

من القائمة View اكبس على Zoom ثم اختر Fit Selection

**علي المصري** · مايو 1, 2014

مطلوب عمل ذلك تلقائيا ً باستخدام كود VBA

محمد يوسف البنا · مايو 2, 2014

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

اخى العزيز

تفضل المرفق ... اكواد مقاس الشاشه من اعمال احد الاخوه ...اتمنى ان تفيدك

**علي المصري** · مايو 2, 2014

شكرا اخي الكريم

ولكن هذا الكود يغير اعدادات الشاشة

المطلوب كود يغير من إعدادات الزوم الخاصة بالصفحة 100% - 120% وهكذا لكي تتلائم مع شاشة الجهاز الذي تعمل عليه

**علي المصري** · مايو 2, 2014

بعد البحث في منتدى الاكسيل

عثرت على الكود التالي من عمل الاستاذ أحمدزمان

Range("a1:O1").Select
ActiveWindow.Zoom = True

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

وجاري التجربة على شاشات مختلفة المقاس

حيث " a1:o1" المدى المراد ظهوره على حسب مقاس الشاشة

تم تعديل مايو 2, 2014 بواسطه علي المصري

الردود الموصى بها