صور Excel: إدراج الصور وتحجيمها وحفظها وحذف صور متعددة في Excel

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

1. في ورقة العمل، انقر على المكان الذي تريد إدراج الصورة فيه.

2. ثم انقر علىإدراج > الصور > هذا الجهاز. انظر لقطة الشاشة:

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

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

إذا كنت تستخدم Excel 2013 أو إصدارات أحدث، يمكنك إدراج الصور من الويب أو OneDrive، يُرجى اتباع الخطوات التالية:

1. في ورقة العمل، انقر على المكان الذي تريد إدراج الصورة فيه.

2. بعد ذلك، انقر علىإدراج > الصور > الصور عبر الإنترنت. راجع لقطة الشاشة التالية:

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

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

يمكنك الاستفادة من كود VBA التالي لإدراج صور متعددة في الخلايا تلقائيًا وفقًا لحجم كل خلية. يُرجى اتباع الخطوات التالية:

1. غيّر حجم الخلية التي تريد إدراج الصورة فيها، ثم حدد الخلايا.

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

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

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

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

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

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

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

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

يمكنك الاستفادة من كود VBA التالي لإدراج صور متعددة تتطابق أسماؤها بسرعة. يُرجى اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

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

كود VBA: إدراج صور متعددة تتطابق أسماؤها

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

ملاحظة: في الكود أعلاه، يمكنك تعديل ارتفاع الصورة وعرضها ضمن السكربتات ".ShapeRange.Height = 60« و».ShapeRange.Width = 60" وفقًا لاحتياجاتك.

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

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

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

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

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

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

2. في مربع الحوار المنبثقMatch Import Picture، يُرجى تنفيذ الخطوات التالية:

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

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

4. بعد ذلك، انقرموافق، وستُدرج تلقائيًا جميع الصور التي تطابق أسماؤها قيم الخلايا. انظر لقطة الشاشة:

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

1. أولًا، غيّر حجم الخلية المجاورة التي تريد إدراج الصور فيها.

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

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

كود VBA: إدراج صور من قائمة عناوين URL

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 Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

ملاحظات: في الكود أعلاه،A2:A5 هو نطاق الخلايا التي تحتوي على عناوين URL التي تريد استخراج الصور منها. تأكد من تعديل مراجع الخلايا وفقًا لاحتياجاتك.

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

Kutools لـ Excelيحتوي على ميزة رائعة – إدراج صور من المسار (URL). باستخدام هذه الأداة، ستتمكن من استخراج الصور المقابلة من عناوين URL بسرعة وسهولة.

1. انقرKutools > إدراج > إدراج صور من المسار (URL)، انظر لقطة الشاشة:

2. في مربع الحوار المنبثقإدراج صور من المسار (URL)، يُرجى ضبط الإعدادات التالية:

• حدد قائمة خلايا عناوين URL والنطاق الذي تريد وضع الصور فيه؛
• اختر حجم الصور الذي تريده من قسمحجم الصورة.
• 

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

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

1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

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

كود VBA: إدراج صورة من نطاق مسار الملف

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

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

4. بعد ذلك، انقر على زرموافق، وستُعرض جميع الصور بناءً على مسار الملف في العمود التالي، كما هو موضح في لقطة الشاشة التالية:

ميزةKutools لـ Excelالمُسماةإدراج صور من المسار (URL)يمكن أن تساعدك أيضًا في عرض الصور ذات الصلة من مسار الملف.

1. انقرKutools > إدراج > إدراج صور من المسار (URL). في مربع الحوار المنبثق، يُرجى تحديد نطاق مسار الملف، ونطاق إخراج الصور، وحجم الصورة حسب حاجتك. انظر لقطات الشاشة:

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

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

لحل هذه المشكلة، تحتاج فقط إلى تغيير حجم الصورة في الرأس أو التذييل، يُرجى اتباع الخطوات التالية:

1. انقر في قسم الرأس أو التذييل حيث توجد الصورة، ثم انقرتنسيق الصورةضمن تبويبتصميم. انظر لقطة الشاشة:

2. في مربع حوارتنسيق الصورة، ضمن تبويبالحجم، اضبط حجم الصورة ليتناسب مع مربع قسم الرأس أو التذييل. انظر لقطة الشاشة:

3. بعد ذلك، انقرموافق، وستحصل على النتيجة التي تريدها.

1. افتح ورقة العمل التي ترغب في إدراج صورة خلفية بها.

2. ثم انقرتخطيط الصفحة > الخلفية، انظر لقطة الشاشة:

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

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

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

1. انقرإدراج > الأشكال، ثم اختر شكل المستطيل. انظر لقطة الشاشة:

2. بعد ذلك، ارسم شكلاً بالحجم الذي تريده في ورقة العمل النشطة.

3. بعد رسم الشكل، تظهر علامة التبويبأدوات الرسمفي الشريط. ثم انقرتنسيق > مخطط الشكل > بدون مخطط. انظر لقطة الشاشة:

2. بعد ذلك، ارسم شكلاً بالحجم الذي تحتاجه في ورقة العمل النشطة. ثم اخترFormat Shape من القائمة المنبثقة، كما هو موضح في لقطة الشاشة:

4. بعد ذلك، انقر بزر الماوس الأيمن على الشكل، ثم اخترتنسيق الشكلمن قائمة السياق (انظر لقطة الشاشة): في علامة التبويبFill & Line، قم بالخطوات التالية:

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

5. في جزء

6. بعد ذلك، سترى أن الشكل المملوء بصورة يبدو كصورة خلفية، كما هو موضح في لقطة الشاشة أعلاه.

ملاحظة: بعد إدراج هذا النوع من صور الخلفية، لن يُسمح لك بإدخال أي نص ضمن نطاق الصورة.تأتيك ميزةإدراج العلامة المائيةلتنقذ الموقف!

كلتا الطريقتين السابقتين تأتيان مع قيودهما الخاصة: فالأولى لا تسمح لك بتغيير شفافية الصورة، والثانية لا تتيح إدخال نص في الخلايا الواقعة داخل منطقة الصورة. وللتغلب على هذه التحديات، تأتيك ميزةKutools لـ Excel ’sإدراج العلامة المائيةبالحل الأمثل. > إدراج العلامة المائية، انظر لقطة الشاشة:

1. انقرKutools > إدراج > إدراج العلامة المائية، انظر لقطة الشاشة:

2. في مربع الحوار المنبثقإدراج العلامة المائية، اختر

3 . بعد ذلك، انقر على زر موافق

في Excel، يمكنك استخدام دالةنسخ كصورة

1. حدد نطاق الخلايا الذي تريد نسخه ولصقه كصورة، ثم انتقل إلى: Home > Copy > Copy as Picture، كما هو موضح في لقطة الشاشة التالية:

2. ثم انقرالصفحة الرئيسية > نسخ > نسخ كصورة، وانظر لقطة الشاشة:

3. في مربع الحوار المنبثقنسخ صورة، اخترصورةمن القسم

4 . بعد ذلك، انقر على زر موافق

في Excel، هناك أداة تُسمىالكاميرايمكنها مساعدتك في التقاط صورة لتحديد البيانات، ثم لصقها كصورة. وعند تغيير البيانات الأصلية، ستتغيّر الصورة المنسوخة ديناميكيًا.

أولاً، يجب أن تقوم بعرض أداةالكاميراعلى الشريط، ثم تطبيقها. icon, and then click More Commands option, see screenshot:

1. انقر على أيقونةتخصيص شريط أدوات الوصول السريع، ثم اختر الخيار

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

2. في مربع حوارخيارات Excelالمفتوح، يُرجى تنفيذ العمليات التالية:

3. وهكذا، تم عرض الأداة

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

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

إذا كنت تمتلكKutools لـ Excel

1. حدد نطاق البيانات الذي ترغب في إدراجه كصورة، ثم انتقل إلىKutools > Navigation. راجع لقطة الشاشة:

2. ثم انقرKutools > التنقل، انظر لقطة الشاشة: أيقونةإضافة المحتوى المحدد إلى النص التلقائي، انظر لقطة الشاشة:

3. في جزءالتنقلالموسّع، انقر على أيقونة

4. في مربع حوارإضافة إلى النص التلقائي، حدّد اسمًا لهذا العنصر، ثم اختر المجموعة التي تريد إضافته إليها. انظر لقطة الشاشة: جزءمكتبة الموارد. إذا أردت إدراج هذا النطاق كصورة، فما عليك سوى النقر على خلية لتحديد موضع الصورة، ثم ابحث عن العنصر المحفوظ من جزءمكتبة الموارد، وانقر علىإدراج كـ > صورة (EMF)من القائمة المنسدلة للعنصر. وسيتم إدراج نطاق البيانات في الورقة كصورة، انظر لقطات الشاشة:

5 . بعد ذلك، انقر على زر إضافة لإضافته إلى جزء مكتبة الموارد . إذا كنت ترغب في إدراج هذا النطاق كصورة، فما عليك سوى النقر على خلية لتحديد موضع الصورة، ثم البحث عن العنصر المحفوظ من جزء مكتبة الموارد ، وانقر على إدراج كـ > صورة (EMF من القائمة المنسدلة للعنصر. وستُدرج نطاق البيانات في الورقة كصورة، انظر لقطات الشاشة:

عادةً، في Excel، يمكنك إنشاء نطاق مسمّى ديناميكي، ثم استخدام الصورة المرتبطة لحل هذه المهمة.عادةً، في Excel، يمكنك إنشاء نطاق مسمّى ديناميكي، ثم استخدام الصورة المرتبطة لحل هذه المهمة.

2. بعد ذلك، يُرجى إنشاء قائمة منسدلة لقيم الخلايا. انقر على الخلية لإظهار القائمة المنسدلة، ثم انتقل إلىبيانات > التحقق من صحة البيانات > التحقق من صحة البيانات. راجع لقطة الشاشة التالية:

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

4. انقرموافق، وستُنشأ القائمة المنسدلة المحتوية على قيم الخلايا تلقائيًا. اختر عنصرًا واحدًا منها — راجع لقطة الشاشة:

5. بعد ذلك، انقرالصيغ > تعريف الاسم. انظر لقطة الشاشة:

6. في مربع الحواراسم جديد، يُرجى تنفيذ العمليات التالية:

• أدخل اسمًا يُسمى myimage في مربع نصالاسم؛
• ثم انسخ والصق هذه الصيغة:=INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2)في مربع النص «يشير إلى».

  

  ملاحظة: في الصيغة أعلاه:

  • Sheet11!$A$2:$B$6: هو ورقة العمل والنطاق الذي يحتوي على القيم والصور التي تريد استخدامها؛
  • Sheet11!$E$2: هي الخلية داخل ورقة العمل التي أنشأت فيها قائمة منسدلة؛
  • Sheet11!$A$2:$A$6: هو قائمة الخلايا التي أنشأت القائمة المنسدلة بناءً عليها؛
  • الرقم المتغير2 هو رقم العمود الذي يحتوي على الصور. إذا كانت صورك في العمود C، فأدخل الرقم 3.

7. بعد ذلك، انقرموافق، ثم انسخ ولصق الصورة المقابلة في الخلية F2 بناءً على القيمة الموجودة في الخلية E2 من النطاق الأصلي. راجع لقطة الشاشة التالية:

8. بعد ذلك، حدد الصورة في الخلية F2، ثم أدخل هذه الصيغة=myimage(حيث إن)myimage هو اسم الخلية الذي أنشأته في الخطوة 6) في شريط الصيغة، كما هو موضح في لقطة الشاشة:

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

قد تكون الطريقة السابقة صعبة بالنسبة لمعظمنا، لذا سنعرض لك هنا ميزة رائعة –قائمة منسدلة مع صورمنKutools لـ Excel. باستخدام هذه الأداة المفيدة، يمكنك إنشاء قوائم منسدلة متعددة مرفقة بصورها بنقرات قليلة فقط!

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

2. بعد ذلك، انقرKutools > قائمة منسدلة > قائمة منسدلة بصورة. انظر لقطة الشاشة:

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

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

عادةً، يمكنك استخدام ميزةحفظ باسملحفظ جميع الصور من المصنف، يُرجى اتباع الخطوات التالية:

1. انقرملف > حفظ باسم. في نافذةحفظ باسم، حدد مجلدًا لحفظ الملفات المصدرة فيه، ثم اخترصفحة ويب (*.htm؛ *.html)من قائمة نوع الحفظ في مربع حوارحفظ باسم. انظر لقطة الشاشة:

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

3. بعد ذلك، يمكنك ببساطة سحب الصور إلى مجلد آخر حسب حاجتك.

ملاحظة: عند استخدام ميزةحفظ باسم، ستحصل على كل صورة مرتين—نسخة أصغر وأخرى أكبر—ما يتيح لك حفظ الصور بدقة أعلى حسب احتياجاتك.

لحفظ جميع الصور من ملف Excel، يمكنك أيضًا تغيير امتداد الملف إلى RAR. يُرجى اتباع الخطوات التالية:

1. غيّر امتداد الملف منxlsx إلىrar كما هو موضح في لقطة الشاشة أدناه:

2. بعد ذلك، قم بفك ضغط الملف، وستجد داخله 3 مجلدات وملفًا واحدًا—كما في لقطة الشاشة التالية:

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

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

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

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

• اختر خيارالصورمن قائمةالأنواعالمنسدلة؛
• حدد مجلدًا لحفظ صورك المصدرة؛
• ثم انقر على القائمة المنسدلة منتنسيق التصديرلاختيار تنسيق واحد لصورك.
• 

3. أخيرًا، انقر على زرموافق، وستُحفظ جميع الصور الموجودة في المصنف الحالي في المجلد الذي حددته. انظر لقطة الشاشة:

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

1. فعِّل ورقة العمل التي تحتوي على الصور التي تريد حذفها.

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

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

رمز VBA: حذف جميع الصور من ورقة العمل الحالية

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

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

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

1. اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

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

رمز VBA: حذف الصور من نطاق من الخلايا

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

ملاحظة: في الكود أعلاه،B4:C6 هو النطاق الذي تريد حذف الصور منه.

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

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

1. انقر فوقKutools > حذف > حذف الصور والكائنات، انظر لقطة الشاشة:

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

3. بعد ذلك، انقر على زرموافق، وستُحذف جميع الصور من ورقة العمل أو الأوراق المحددة أو المصنف بأكمله، حسب اختيارك.