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

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 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 إلى العمود المجاور ووضعها في وسط الخلايا ، انظر لقطة الشاشة:

كوتولس ل إكسيل لديه ميزة مذهلة - إدراج صور من المسار (URL). باستخدام هذه الأداة ، سيتم استخراج الصور المقابلة من عناوين URL بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

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

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

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

3. ثم انقر فوق Ok ، وتم استخراج جميع الصور من عناوين URL ، انظر لقطة الشاشة:

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

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

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

كود فبا: أدخل الصور من مجموعة من مسارات الملفات

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

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

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

2. بعد تحديد الخيارات ، انقر فوق Ok زر ، سيتم إدراج الصور في الخلايا المحددة مرة واحدة ، انظر الصورة:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

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

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

3. ثم اضغط Ok ، تم إدراج الصورة في ورقة العمل كصورة خلفية.

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

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

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

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

4. ثم اضغط OK زر ، الآن ، ما عليك سوى الضغط CTRL + V للصق الصورة في أي مكان في المصنف.

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

أولاً ، يجب عليك عرض ملف الكاميرات والتصوير على الشريط ، ثم قم بتطبيقه.

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

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

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

3. و ال الكاميرات والتصوير تم عرض الأداة على الشريط ، انظر الصورة:

4. بعد ذلك ، حدد نطاق الخلايا الذي تريد صورة.

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

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

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

2. ثم اضغط كوتولس > قائمة الإختيارات، انظر لقطة الشاشة:

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

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

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

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

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

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

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

4. انقر OK، وتم إنشاء القائمة المنسدلة بقيم الخلايا ، حدد عنصرًا واحدًا من القائمة المنسدلة ، انظر الصورة:

5. ثم اضغط الصيغ > حدد الاسم، انظر لقطة الشاشة:

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

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

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

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

7. ثم انقر فوق OK زر ، ثم يرجى نسخ ولصق الصورة المقابلة بناءً على قيمة الخلية في E2 من النطاق الأصلي إلى الخلية F2 ، انظر لقطة الشاشة:

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

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

قد تكون الطريقة المذكورة أعلاه صعبة بالنسبة لمعظمنا ، هنا ، سأقدم ميزة مفيدة - القائمة المنسدلة للصور of كوتولس ل إكسيل، باستخدام هذه الأداة المفيدة ، يمكنك إنشاء قوائم منسدلة متعددة مع صورها النسبية بعدة نقرات فقط.

بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

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

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

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

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

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

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

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

3. ثم يمكنك سحب الصور فقط إلى مجلد آخر حسب حاجتك.

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

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

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

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

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

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

بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

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

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

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

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

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

1. قم بتنشيط ورقة العمل التي تحتوي على الصور التي تريد حذفها.

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

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

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

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 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

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 مفتاح لتشغيل هذا الرمز ، وسيتم حذف الصور في النطاق المحدد مرة واحدة ، انظر لقطات الشاشة:

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

بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

1. انقر كوتولس > حذف > حذف الرسوم التوضيحية والكائنات، انظر لقطة الشاشة:

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

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