كيفية استخدام zoom في vba (مع أمثلة)

يمكنك استخدام الطرق التالية لتحديد التكبير/التصغير في Excel باستخدام VBA:

الطريقة الأولى: ضبط التكبير/التصغير على مقدار محدد

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

سيؤدي هذا الماكرو المحدد إلى ضبط التكبير/التصغير على 150% للورقة النشطة حاليًا.

الطريقة الثانية: ضبط التكبير/التصغير على النطاق المحدد حاليًا

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

سيقوم هذا الماكرو المحدد بتكبير النطاق المحدد حاليًا.

الطريقة الثالثة: ضبط التكبير على نطاق معين

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

سيقوم هذا الماكرو المحدد بتكبير النطاق C1:E5 .

توضح الأمثلة التالية كيفية استخدام كل طريقة عمليا مع ورقة Excel التالية التي تحتوي على مجموعة من البيانات عن لاعبي كرة السلة المختلفين:

مثال 1: اضبط التكبير/التصغير على مقدار محدد

يمكننا استخدام الماكرو التالي لتعيين تكبير الورقة النشطة حاليًا إلى 150% :

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

عندما نقوم بتشغيل هذا الماكرو، سيتم تكبير الورقة تلقائيًا بنسبة 150% :

لاحظ أن التكبير الافتراضي هو 100 .

من خلال ضبط التكبير على قيمة أكبر من 100، نقوم بالتكبير.

للتصغير، اضبط التكبير على قيمة أقل من 100.

مثال 2: ضبط التكبير/التصغير على النطاق المحدد حاليًا

يمكننا استخدام الماكرو التالي لتعيين تكبير الورقة النشطة حاليًا إلى النطاق المحدد حاليًا:

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

على سبيل المثال، لنفترض أننا حددنا النطاق A7:C11 .

عندما نقوم بتشغيل هذا الماكرو، ستقوم الورقة تلقائيًا بتكبير هذا النطاق:

مثال 3: ضبط التكبير/التصغير على نطاق معين

يمكننا استخدام الماكرو التالي لتعيين تكبير الورقة النشطة حاليًا إلى النطاق C1:E5 :

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

عندما نقوم بتشغيل هذا الماكرو، ستقوم الورقة تلقائيًا بتكبير هذا النطاق:

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

كيفية حساب عدد الصفوف في نطاق باستخدام VBA
كيفية التنقل في جداول البيانات باستخدام VBA
كيفية إظهار كافة الصفوف باستخدام VBA