كيف يمكن إدخال عدة صور وتحجيمها دفعةً واحدة في Excel؟

يمكنك إدراج عدة صور دفعة واحدة باستخدام ميزة «إدراج صورة» في Excel، ثم تعديل أحجامها جميعًا معًا. يُرجى اتباع الخطوات التالية:

1. في ورقة العمل، انقر علىإدراج > صورة.

2. في مربع حوار إدراج صورة، افتح المجلد الذي يحتوي على الصور التي تريد إدخالها، ثم حدد الصور المتعددة التي تحتاجها، وانقر على زرإدراج. انظر لقطة الشاشة:
ملاحظة: بالضغط مع الاستمرار على مفتاحCtrl، يمكنك تحديد صور غير متجاورة متعددة بالنقر عليها واحدة تلو الأخرى؛ وبالضغط مع الاستمرار على مفتاحShift، يمكنك تحديد صور متجاورة متعددة بالنقر على أول صورة وآخر صورة.

الآن تم إدخال الصور دفعةً واحدة، وهي تتراكب في ورقة العمل.

3. احتفظ بتحديد هذه الصور، ثم غيّر أحجامها دفعة واحدة بإدخال الأرقام الجديدة في حقلَيالعرضوالارتفاعالموجودين في مجموعةالحجمعلى تبويبالتنسيق. انظر لقطة الشاشة:

الآن أصبحت جميع الصور المحددة بنفس الحجم في آنٍ واحد.

4. حاليًّا، عليك نقل كل صورة يدويًّا إلى المكان المناسب.

ملاحظة: إذا كانت هناك عشرات الصور المتراكبة، فإن نقلها يدويًّا إلى أماكن مناسبة سيكون أمرًا يستغرق وقتًا طويلاً.

تتيح لك أداةاستيراد الصورمنKutools لـ Excelإدخال صور متعددة بسرعة في Excel بناءً على حجم الخلية أو حجم الصورة، كما يمكنك ضبط ارتفاع الصور وعرضها بالضبط كما تريد.

1. انقر علىKUTOOLS PLUS > استيراد/تصدير > استيراد الصور. انظر لقطة الشاشة:

2. في مربع حواراستيراد الصور، يُرجى اتباع ما يلي:
(1) من القائمة المنسدلةترتيب الاستيراد، حدد ترتيب عرض الصور، حيث يمكنك الاختيار بينتعبئة حسب العمود، ثم حسب الصفأوتعبئة حسب الصف، ثم حسب العمود.
(2) انقر على زرإضافةلاختيار ملفات الصور أو مجلد يحتوي على الصور التي تريد إضافتها إلى قائمة الصور. وستظهر جميع الصور المحددة في مربع القائمة.
(3) انقر على زرحجم الاستيراد.

3. الآن، في مربع حواراستيراد حجم الصورة، يمكنك اختيار الحجم الأنسب لاحتياجاتك. انظر لقطة الشاشة: 4. بعد تحديد حجم الصورة، انقر على زرموافقلإغلاق هذا المربّع والعودة إلى مربع حواراستيراد الصور، ثم انقر على زراستيرادلاستيراد الصور. 5. في مربع الحوار الجديداستيراد الصور، حدد الخلية الأولى من نطاق الوجهة الذي ستدخل فيه الصور، ثم انقر على زرموافق. في الوقت الحالي، تم إدخال جميع الصور المحددة في خلاياك بدءًا من الخلية النشطة عموديًّا أو أفقيًّا. انظر لقطة الشاشة على اليمين:

ميزةاستيراد الصورتُعد ميزة Kutools لـ Excel مصممة لإدخال مجموعة من الصور دفعة واحدة، إما بمطابقة حجم الخلية أو بحجم محدد أو بأحجامها الأصلية في Excel.جرّبها مجانًا!

لتجنب نقل الصور المتراكبة واحدة تلو الأخرى، تقدّم هذه الطريقة خدعة أخرى لإدخال صور متعددة بمساعدة OneNote. يُرجى اتباع الخطوات التالية:

1. افتح OneNote وأنشئ صفحة جديدة، ثم انقر علىإدراج > صورة.

2. في مربع حوار إدراج صورة، افتح المجلد الذي يحتوي على الصور التي تريد إدخالها، ثم حدد الصور المتعددة التي تحتاجها، وانقر على زرإدراج. انظر لقطة الشاشة:
ملاحظة: بالضغط مع الاستمرار على مفتاحCtrl، يمكنك تحديد صور غير متجاورة متعددة بالنقر عليها واحدة تلو الأخرى؛ وبالضغط مع الاستمرار على مفتاحShift، يمكنك تحديد صور متجاورة متعددة بالنقر على أول صورة وآخر صورة.

3. اضغط على مفتاحَيCtrl+A لتحديد جميع الصور المُدخلة في OneNote، ثم اضغط على مفتاحَيCtrl+C لنسخها.

4. انتقل إلى ورقة العمل في Excel، ثم اضغط على مفتاحَيCtrl+V للصق الصور في ورقة العمل. الآن، تم لصق جميع الصور عموديًّا كما في لقطة الشاشة على اليسار.

5. حدد أيًّا من الصور، ثم اضغط على مفتاحَيCtrl+A لتحديدها جميعًا. بعد ذلك، غيّر أحجام الصور دفعة واحدة بإدخال أرقام جديدة في حقلَيالعرضوالارتفاعالموجودين في مجموعةالحجمعلى تبويبالتنسيق. انظر لقطة الشاشة:

الآن تم إدخال جميع الصور المحددة في Excel وتغيير أحجامها لتكون متماثلة دفعة واحدة.

باستخدام كود VBA التالي، يمكنك إدخال صور متعددة في ملف Excel خليةً تلو الأخرى.

1. حدد الخلية الأولى من النطاق الذي تريد إدخال الصور فيه.

2. اضغط مع الاستمرار على مفتاحَيALT + F11، وستفتح لك نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

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

Sub InsertPictures()
'Update 20140513
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 لـ Excel أيضًا ميزةمطابقة استيراد الصورالمذهلة، التي تُطابق الصور مع محتويات الخلايا وتُدخل الصور المطابقة دفعةً واحدة في Excel.

1. حدد خلايا أسماء الصور التي تريد إدراج الصور المطابقة لها، ثم انقر علىKUTOOLS PLUS > استيراد / تصدير > مطابقة استيراد الصور. انظر لقطة الشاشة:

2. في مربع الحوار المنبثق «مطابقة استيراد الصور»، يُرجى اتباع الخطوات التالية:
(1) حدد ترتيب عرض الصور من القائمة المنسدلةترتيب الاستيراد؛
(2) انقر على زرإضافةلإضافة الصور إلى قائمة الصور. وتجدر الإشارة إلى أن النظام سيعرض الصور المطابقة فقط.
(3) ثم انقر على زرحجم الاستيراد.

3.الآن، في مربع حواراستيراد حجم الصورة، يمكنك اختيار الحجم الأنسب لاحتياجاتك، ثم النقر على زرموافق. انظر لقطة الشاشة: 4. الآن بعد عودتك إلى مربع حواراستيراد الصور، انقر على زراستيرادلاستيراد الصور. 5. في مربع الحوار المنبثق «مطابقة استيراد الصور»، يُرجى تحديد الخلية الأولى من نطاق الوجهة الذي ستدخل فيه الصور، ثم انقر على زرموافق. انظر لقطة الشاشة: حتى الآن، تم إدخال جميع الصور في الخلايا وفقًا لأسمائها النسبية. انظر لقطة الشاشة على اليمين:

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

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

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