تغيير حجم الصور تلقائيًا بشكل دفعي لتناسب الخلايا في Excel – طريقتان مفيدتان

عند العمل بالصور في برنامج Excel، فإن محاذاتها مع الخلايا أمر بالغ الأهمية للحصول على عرض منظم ومنظم. إذا كنت تقوم بإدراج صور بشكل متكرر في برنامج Excel وترغب في تغيير حجمها تلقائيًا لتناسب أبعاد الخلايا، فسوف يرشدك هذا الدليل إلى أفضل الطرق لتغيير حجم الصور لتناسب الخلايا بكفاءة.

تغيير حجم الصور تلقائيًا لتتناسب مع الخلايا باستخدام كود VBA

تغيير حجم الصور تلقائيًا لتتناسب مع الخلايا باستخدام Kutools for Excel

تغيير حجم الصورة المحددة لتناسب خلية واحدة باستخدام كود VBA

بالنسبة للمستخدمين الذين يحتاجون إلى إدراج صور متعددة وتغيير حجمها تلقائيًا لتناسب خلايا معينة، يوفر ماكرو VBA حلاً فعالاً للغاية. من خلال الاستفادة من VBA، يمكنك تبسيط عملية استيراد الصور وتعديلها، والتأكد من محاذاتها تمامًا مع حدود الخلايا. هذه الطريقة مفيدة بشكل خاص عند التعامل مع استيراد الصور بكميات كبيرة، حيث إنها تلغي الحاجة إلى تغيير الحجم وتحديد الموضع يدويًا.

1. قم بضبط حجم الخلية التي تريد وضع الصورة فيها، ثم حدد الخلايا.

2. بعد ذلك، اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة "Microsoft Visual Basic for Applications".

3انقر فوق "إدراج" > "وحدة نمطية"، ثم ألصق الماكرو التالي في نافذة الوحدة النمطية.

VBA: إدراج صور متعددة بناءً على حجم الخلية

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. ثم اضغط على مفتاح F5 لتشغيل هذا الكود. في نافذة "فتح"، اختر المجلد الذي يحتوي على الصور، ثم حدد الصور التي تريد إدراجها.

5. ثم انقر على زر "فتح"، وستُدرج جميع الصور المحددة في مجموعتك بناءً على حجم الخلية. انظر لقطة الشاشة:

تغيير حجم الصور تلقائيًا لتتناسب مع الخلايا باستخدام Kutools for Excel

إذا لم تكن معتادًا على استخدام أكواد VBA، فلا تقلق! يوفر Kutools for Excel طريقة بسيطة وفعالة لتغيير حجم الصور تلقائيًا بشكل مُجمّع لتناسب الخلايا المُقابلة لها. هذه الميزة مفيدة بشكل خاص للمستخدمين الذين يُدرجون صورًا بشكل متكرر، مثل قوائم المنتجات أو التقارير أو عروض البيانات المرئية.

في هذا القسم، سنوضح لك الخطوات اللازمة لتغيير حجم الصور المتعددة تلقائيًا لتناسب خلاياها الخاصة باستخدام Kutools for Excel، مما يوفر لك الوقت ويضمن لك ورقة عمل أنيقة ومنظمة.

بعد تثبيت كوتولس ل إكسيل ، يرجى اتباع الخطوات التالية:

1. انقر فوق "Kutools Plus" > "استيراد/تصدير" > "استيراد الصور".
   
2. في مربع الحوار "استيراد الصور"، قم بتكوين الخيارات التالية:
   • انقر فوق زر "إضافة" لتحديد ملفات الصور أو المجلد الذي تريد إضافة الصور إليه إلى قائمة الصور؛
   • في القائمة المنسدلة "حجم الاستيراد"، حدد "مطابقة حجم الخلية"؛
   • قم بتحديد ترتيب الصورة من القائمة المنسدلة "ترتيب الاستيراد"، ويمكنك اختيار "ملء الخلية بعد الخلية عموديًا" أو "ملء الخلية بعد الخلية أفقيًا".
   • وأخيرًا، انقر فوق زر "استيراد".
     
3. الآن، يظهر خيار "استيراد الصور" مرة أخرى، حدد الخلايا الوجهة التي ستستورد الصورة إليها، انظر لقطة الشاشة:
   
4. بعد ذلك، انقر فوق زر موافق، وسيتم إدراج جميع الصور المحددة لتتناسب مع حجم الخلايا المحددة كما هو موضح في لقطة الشاشة أدناه:
   

وفي الختام

يوفر كل من VB Macro وKutools for Excel طرقًا فعالة لتغيير حجم الصور لتناسب الخلايا، ولكنها تلبي احتياجات المستخدمين ومستويات المهارة المختلفة.

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

في النهاية، يعتمد الاختيار بين الطريقتين على متطلبات المستخدم المحددة ومهاراته الفنية وميزانيته. بالنسبة لأولئك الذين يعملون بشكل متكرر مع الصور في Excel، فإن استكشاف كلا الخيارين وفهم نقاط القوة والقيود الخاصة بكل منهما يمكن أن يؤدي إلى تدفقات عمل أكثر كفاءة وانسيابية. إذا كنت مهتمًا باستكشاف المزيد من النصائح والحيل الخاصة بـ Excel، يوفر موقعنا آلاف البرامج التعليمية لمساعدتك على إتقان برنامج Excel.

مقالات لها صلة:

كيفية تغيير حجم خلايا متعددة لاحتواء الصور فوقها بسرعة في Excel؟