انتقل إلى المحتوى الرئيسي

كيفية إدراج صور متعددة وتغيير حجمها مرة واحدة في Excel؟

من السهل علينا إدراج صورة واحدة في Excel ، ولكن إذا كنت بحاجة إلى إدراج صور متعددة في وقت واحد حتى تتمكن من توفير الكثير من الوقت ، فكيف يمكنك القيام بذلك؟


قم بإدراج صور متعددة وقم بتغيير حجمها بشكل مجمّع عن طريق ميزة "إدراج صورة"

يمكننا إدراج صور متعددة بشكل مجمّع عن طريق ميزة (إدراج) صورة في Excel ، ثم تغيير حجمها في وقت واحد. الرجاء القيام بما يلي:

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

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

يتم الآن إدراج الصور بشكل مجمّع ومكدس في ورقة العمل.

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

الآن يتم تغيير جميع الصور المدرجة إلى نفس الحجم دفعة واحدة.

4. في الوقت الحالي ، تحتاج إلى نقل كل صورة يدويًا بشكل منفصل إلى مكان مناسب.

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

تُدرج الدفعة صورًا متعددة تتطابق مع محتويات الخلية في Excel

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


إعلان يطابق الصور المستوردة 01

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن

قم بإدراج صور متعددة وقم بتغيير حجمها دفعة واحدة باستخدام OneNote

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

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

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

doc إدراج صور متعددة OneNote 032

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

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

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

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


قم بإدراج صور متعددة في Excel باستخدام كود VBA

باستخدام رمز 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 for Excel

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

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن

1. انقر كوتولس بلس > استيراد / تصدير > استيراد الصور، انظر لقطة الشاشة:

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

3. الآن في استيراد حجم الصورة الحوار ، يمكنك اختيار حجم الصورة المطابق لحاجتك. انظر لقطة الشاشة:

4. بعد تحديد حجم الصورة ، الرجاء الضغط OK لإغلاق هذا الحوار والعودة إلى استيراد الصور الحوار، انقر فوق استيراد زر لاستيراد الصور.

5. في مربع حوار استيراد الصور الجديد ، يرجى اختيار الخلية الأولى من نطاق الوجهة الذي ستقوم بإدراج الصور فيه ، ثم النقر فوق OK .

في الوقت الحالي ، تم إدراج جميع الصور المحددة في الخلايا الخاصة بك من الخلية النشطة عموديًا أو أفقيًا. انظر لقطة الشاشة الصحيحة:

استيراد الصور تم تصميم ميزة Kutools for Excel لإدراج مجموعة من الصور في وقت واحد مع مطابقة حجم الخلية أو الحجم المحدد أو أحجام الصور الخاصة في Excel. احصل على نسخة تجريبية مجانية!


أدخل عدة صور مطابقة مع أسمائهم مع كوتولس ل إكسيل

Kutools for Excel يدعم أيضًا ملف تطابق استيراد الصور ميزة لمطابقة الصور ومحتويات الخلية وإدراج الصور المتطابقة بكميات كبيرة فقط في Excel.

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن

1. حدد خلايا اسم صورتك التي تريد إدراج الصور المطابقة لها ، ثم انقر فوق كوتولس بلس > استيراد / تصدير > تطابق استيراد الصور. انظر لقطة الشاشة:

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

3. الآن في استيراد حجم الصورة الحوار ، يمكنك اختيار حجم الصورة الذي يتناسب مع حاجتك ، والنقر فوق Ok زر. انظر لقطة الشاشة:

4. الآن تعود إلى استيراد الصور الحوار، انقر فوق استيراد زر لاستيراد الصور.

5. في مربع الحوار المنبثق لمطابقة استيراد الصور ، يرجى تحديد الخلية الأولى من نطاق الوجهة الذي ستقوم بإدراج الصور فيه ، والنقر فوق OK زر. انظر لقطة الشاشة:

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

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


العرض التوضيحي: أدخل عدة صور وقم بتغيير حجمها مرة واحدة في Excel

كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel ، يمكن تجربتها مجانًا دون قيود في غضون 30 يومًا. تجربة مجانية الآن!      شراء الآن!


مقالات ذات صلة

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello community,

Thank you very much - this is a great tool!
But for my request, I should keep the sizes of the images, which are different. Is there any way to keep the format of the images but keep the functions with this code?

Many thanks in advance.
Elias
This comment was minimized by the moderator on the site
Respected sir, i want to One image paste on specific cell more than one in a time.
This comment was minimized by the moderator on the site
Hello, Sarfraz

If you want to insert one image into multiple cells, you just need to insert one image and resize it, and then copy and paste it to the other cells as you need.

Thank you!
This comment was minimized by the moderator on the site
mình cảm ơn vì bài viết. mình có làm danh sách sản phẩm hàng hóa mất rất nhiều thời gian nhưng chợt thấy chenanhexcel.com có bán add-in thì công việc của mình dễ dàng hơn nhiều.
This comment was minimized by the moderator on the site
Hi, i have 10 images i want to insert all 10 inside ONE CELL in excel. is this possible and if so pls help me out with some code pls...
This comment was minimized by the moderator on the site
Hi Vind,
First, adjust the cell and make it big enough to contain the 10 images.
Then Click Insert > Picture to open the Insert Picture dialog. In the dialog, select the 10 images together (if they are in the same folder), and click the OK button.
Now all images are inserted. If necessary, resize them simultaneously in the Size group on the Picture Format tab.
These images are inserted in the diagonal line of the cell as attached picture, and you need to adjust their positions manually.
This comment was minimized by the moderator on the site
I am using the following code, which came from Funzone, to add my photos but i need to be able to skip a column, leaving a blank column between photos, can someone help?

Sub InsertPictures()
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
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

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)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 2
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I was finally able to figure it out on my own.

The code below will insert 3 pictures horizontally in the columns then move down a row and insert 3 more horizontally it will repeat this process until it runs out of the selected pictures.



Sub InsertPictures()
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
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

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)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 1
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?


If you know how to do this please post the code. Thank you In advance!

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array.
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array
This comment was minimized by the moderator on the site
les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
reitero mi agradecimiento
This comment was minimized by the moderator on the site
Tried this code and in all honesty is amazing and fast, however is there any chance of amending this to make it resize the pictures to a custom size.
I cannot seem to get my head around it.
Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations