يسهل على معظمنا إدراج الصور المخزنة على الكمبيوتر في ورقة العمل. يرجى القيام بذلك على النحو التالي:

1. في ورقة العمل ، انقر حيث تريد إدراج الصور.

2. ثم اضغط إدراج > لوحات حائط > هذا الجهاز، انظر لقطة الشاشة:

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

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

إذا كان لديك Excel 2013 أو الإصدارات الأحدث ، فيمكنك إدراج الصور من الويب أو One Drive ، يرجى القيام بذلك على النحو التالي:

1. في ورقة العمل ، انقر حيث تريد إدراج الصور.

2. ثم اضغط إدراج > لوحات حائط > الصور على الانترنت، انظر لقطة الشاشة:

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

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

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية على إدراج صور متعددة في الخلايا بناءً على حجم الخلية. يرجى القيام بذلك على النحو التالي:

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

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

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

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

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 مفتاح لتشغيل هذا الرمز. في ال ساعات العمل نافذة ، يرجى اختيار المجلد الذي يحتوي على الصور ، ثم تحديد الصور التي تريد إدراجها ، ثم النقر فوق ساعات العمل زر ، وتم إدراج جميع الصور المحددة في اختيارك بناءً على حجم الخلية. انظر لقطة الشاشة:

إذا لم تكن معتادًا على رمز VBA ، فيمكنك هنا استخدام ميزة الطاقة - استيراد الصور of كوتولس ل إكسيل. باستخدام هذه الميزة المفيدة ، يمكنك استيراد صور متعددة إلى الخلايا بسرعة وسهولة.

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

2. في خرجت استيراد الصور الحوار ، يرجى القيام بالعمليات التالية:

• حدد ترتيب الصور من القائمة المنسدلة لأمر الاستيراد ، يمكنك الاختيار ملء عمودي خلية بعد خلية or تعبئة أفقية خلية بعد خلية;
• ثم اضغط أضف لتحديد ملفات الصور أو المجلد لإضافة الصور إلى ملف قائمة الصور;
• انقر على حجم الاستيراد زر ، في استيراد حجم الصورة في مربع الحوار ، حدد ملف مطابقة حجم الخلية الخيار.
• 

3. بعد الانتهاء من الإعدادات ، الرجاء الضغط استيراد ، والآن ، زر آخر استيراد الصور انبثقت ، حدد الخلايا الوجهة التي ستقوم باستيراد الصورة إليها ، انظر لقطة الشاشة:

4. ثم اضغط OK زر ، تم إدراج جميع الصور المحددة لتتناسب مع حجم الخلايا المحددة كما هو موضح أدناه لقطة الشاشة:

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

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

2. انقر Inserر> وحدة، ولصق الماكرو التالي في ملف وحدة نافذة.

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

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

ملاحظات: في الكود أعلاه ، يمكنك تغيير ارتفاع الصورة وعرضها داخل البرامج النصية ".نطاق الشكل.الارتفاع = 60"،".ShapeRange.Width = 60"لحاجتك.

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

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

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

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

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

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

2. في خرجت تطابق استيراد الصورة مربع الحوار ، يرجى القيام بالعمليات التالية:

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

3. بعد الانتهاء من الإعدادات ، الرجاء الضغط استيراد زر ، اختر خلية واحدة أو قائمة خلايا لتحديد موقع الصور من المنبثقة تطابق استيراد الصور الحوار ، انظر لقطة الشاشة:

4. ثم اضغط OK، وجميع الصور التي تم إدراجها في الأسماء المتطابقة مع قيم الخلية ، انظر لقطة الشاشة:

يرجى تطبيق رمز فبا التالي لإدراج الصور بناءً على قائمة عناوين URL.

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

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

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

رمز فبا: إدراج الصور من قائمة عناوين المواقع

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For