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

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

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

2. ثم، انقر على إدراج > صور > هذا الجهاز، كما هو موضح في الصورة:

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

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

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

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

2. ثم، انقر على إدراج > صور > صور عبر الإنترنت، كما هو موضح في الصورة:

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

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

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

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

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

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

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

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

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

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

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

كود VBA: إدراج الصور من قائمة روابط (URLs)

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 هو النطاق الذي يحتوي على عناوين الروابط التي تريد استخراج الصور منها، يجب عليك تغيير مراجع الخلايا حسب حاجتك.

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

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

1. انقر على Kutools > إدراج > إدراج صور من المسار (URL)، كما هو موضح في الصورة:

2. في مربع حوار إدراج صور من المسار (URL) الذي يظهر، يرجى تنفيذ العمليات التالية:

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

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

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

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

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

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

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

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

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

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

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

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

2. ثم، انقر على تخطيط الصفحة > خلفية، كما هو موضح في الصورة:

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

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

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

1. انقر على إدراج > أشكال، واختر شكل مستطيل، كما هو موضح في الصورة:

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

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

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

5. في جزء تنسيق الشكل الموسع، ضمن علامة تبويب التعبئة والخط، قم بما يلي:

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

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

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

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

1. انقر على Kutools > إدراج > إدراج العلامة المائية، كما هو موضح في الصورة:

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

3. ثم، انقر على زر موافق، وسيتم إدراج الصورة في ورقة العمل كصورة خلفية.

في Excel، يمكنك استخدام وظيفة نسخ كصورة لنسخ وإدراج نطاق من الخلايا كصورة.

1. حدد نطاق الخلايا الذي تريد نسخه وإدراجه كصورة.

2. ثم، انقر على الصفحة الرئيسية > نسخ > نسخ كصورة، كما هو موضح في الصورة:

3. في مربع حوار نسخ الصورة الذي يظهر، اختر صورة من قسم التنسيق، كما هو موضح في الصورة:

4. بعد ذلك، انقر على زر موافق، والآن فقط عليك الضغط على Ctrl + V للصق الصورة في أي مكان في المصنف.

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

أولاً، يجب عليك عرض أداة الكاميرا في الشريط، ثم استخدامها.

1. انقر على أيقونة تخصيص شريط أدوات الوصول السريع، ثم انقر على خيار المزيد من الأوامر، كما هو موضح في الصورة:

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

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

3. وتم عرض أداة الكاميرا في الشريط، كما هو موضح في الصورة:

4. ثم، حدد نطاق الخلايا الذي تريد تحويله إلى صورة.

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

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

1. حدد نطاق البيانات الذي تريد إدراجه كصورة.

2. ثم، انقر على Kutools > التنقل، كما هو موضح في الصورة:

3. في جزء التنقل الموسع، انقر على أيقونة مكتبة النص التلقائي، ثم انقر على أيقونة إضافة المحتوى المحدد إلى النص التلقائي، كما هو موضح في الصورة:

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

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

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

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

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. ثم، انقر على زر موافق، ثم يرجى نسخ ولصق الصورة المقابلة بناءً على قيمة الخلية في E2 من النطاق الأصلي إلى الخلية F2، كما هو موضح في الصورة:

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. بعد ذلك، انقر على زر موافق، وسيتم حذف جميع الصور من ورقة العمل أو الأوراق المحددة أو المصنف بالكامل حسب ما حددته.