كيف يمكن استبدال النص بالصور المقابلة في Excel؟
في العمل العملي، غالبًا ما نرغب في عرض الصور تلقائيًا في Excel بناءً على النص الموجود في خلية معينة—مثل عرض صور المنتجات وفقًا لأسمائها أو إظهار الرموز المناسبة حسب الحالة. ولأن Excel لا يحتوي على ميزة مدمجة لـ«تحويل النص إلى صورة»، يتعيّن علينا اللجوء إلى بعض الحلول الذكية لتحقيق هذا الهدف. وفيما يلي، سنستعرض بالتفصيل حلين رئيسيين مع طرق تحسينهما.
استبدال النص بالصور المقابلة باستخدام كود VBA
عادةً لا توجد طريقة سهلة ومباشرة لإدراج صور مرتبطة بسلسلة نصية في Excel، لكن كود VBA التالي يمكن أن يساعدك على استبدال النص بصورة مطابقة له.
1. اضغط «Alt + F11» لعرض نافذة «Microsoft Visual Basic for Applications».
2. في النافذة، انقر على «إدراج» > «وحدة» لإظهار نافذة وحدة جديدة، ثم انسخ والصق كود VBA التالي في نافذة الوحدة.
كود VBA: استبدال النص بالصور المقابلة
Sub ReplaceTextWithPictures()
'Updateby Extendoffice
Dim ws As Worksheet
Dim selectedRange As Range
Dim cell As Range
Dim pic As Picture
Dim picPath As String
Dim foundPic As Boolean
Dim fileExtensions As Variant
Dim ext As Variant
Const imageFolderPath As String = "C:\Users\skyyang\Desktop\Animal\"
fileExtensions = Array("png", "jpg", "jpeg", "bmp", "gif")
On Error Resume Next
Set selectedRange = Application.InputBox("Select the data range", "KutoolsforExcel", Type:=8)
On Error GoTo 0
If selectedRange Is Nothing Then
MsgBox "No valid cell range selected, operation cancelled.", vbExclamation
Exit Sub
End If
Set ws = selectedRange.Worksheet
For Each cell In selectedRange
If Not IsEmpty(cell.Value) Then
foundPic = False
For Each ext In fileExtensions
picPath = imageFolderPath & cell.Value & "." & ext
If Dir(picPath) <> "" Then
foundPic = True
Exit For
End If
Next ext
If foundPic Then
For Each pic In ws.Pictures
If pic.TopLeftCell.Address = cell.Address Then pic.Delete
Next pic
Set pic = ws.Pictures.Insert(picPath)
With pic
.Top = cell.Top
.Left = cell.Left
.Width = cell.Width
.Height = cell.Height
End With
End If
End If
Next cell
End Sub
3. بعد ذلك، اضغط على مفتاح F5 لتشغيل هذا الكود، ثم حدد نطاق البيانات الذي تريد إدراج الصور المقابلة له في مربع الحوار المنبثق. انظر لقطة الشاشة:
4. ثم انقر على زر «موافق»، وستُستبدل جميع الصور المقابلة بالنص الأصلي. انظر لقطة الشاشة:
استبدال النص بالصور المقابلة باستخدام Kutools لـ Excel
إذا لم تكن معتادًا على استخدام كود VBA أو كنت تفضّل تجنّبه، جرّب Kutools لـ Excel! فهو يوفّر حلاً قويًّا وفعّالًا يمكّنك من استبدال النصوص بالصور المقابلة بسهولة تامة، وبضع نقرات فقط. مع Kutools، يمكنك مطابقة أي نص معيّن مع صور معدة مسبقًا مباشرةً—دون الحاجة إلى كتابة سطر واحد من الكود. علاوةً على ذلك، يتيح لك ضبط أبعاد الصور وفقًا لاحتياجاتك، ما يمنحك مرونة أكبر في تنسيقها داخل ورقة Excel الخاصة بك.
بعد تثبيت Kutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. انقر على «KUTOOLS PLUS» > «استيراد/تصدير» > «مطابقة استيراد الصور». انظر لقطة الشاشة:
2. في مربع حوار «مطابقة استيراد الصور»، يُرجى ضبط الإعدادات كما يلي:
- من مربع النص «نطاق المطابقة»، يُرجى النقر لتحديد نطاق الخلايا الذي تريد مطابقته مع الصور؛
- بعد ذلك، انقر على زر «إضافة» لاختيار ملفات الصور التي تريد استيرادها؛
- حدِّد حجم الصورة الذي ترغب في إدراجه من القائمة المنسدلة حجم الاستيراد (هنا، يمكنك اختيار «مطابقة حجم الصورة» أو «مطابقة حجم الخلية» أو «تحديد حجم الصورة» حسب حاجتك.)؛
- اختر ترتيب الاستيراد لصورك؛
- وأخيرًا، انقر على زر «استيراد».
3. بعد ذلك، اختر خلية واحدة لوضع الصور المرتبطة بها من مربع الحوار المنبثق «مطابقة استيراد الصور» (يمكنك أيضًا تحديد الخلية الأصلية للنص). انظر لقطة الشاشة:
4. ثم انقر على زر «موافق»، وستُدرج في ورقة العمل جميع الصور المطابقة للنص. انظر لقطة الشاشة:
- إذا لم تُوجد صور مطابقة للنص، فستظل الخلية فارغة.
- إذا كنت ترغب في إدراج الصور أفقيًّا، فاختر خيار «تعبئة حسب الصف، ثم حسب العمود» في قسم «ترتيب الاستيراد».
في Excel، يمكن أن يؤدي استخدام كود VBA أو أداةKutools لـ Excelلاستبدال النص بالصور المقابلة إلى تحسين كفاءة العمل وتصور البيانات بشكل كبير. سواءً من خلال كتابة نصوص VBA أو استخدام إضافة Kutools، فإن الطريقتين تساعدانك على استبدال النص بالصور بسرعة لتلبية احتياجات عملك المختلفة. واختيار الطريقة الأنسب لك يجعل معالجة البيانات أكثر كفاءة ووضوحًا، مما يرفع جودة عملك بشكل عام. إذا كنت مهتمًّا باستكشاف المزيد من نصائح وحيل Excel،فإن موقعنا الإلكتروني يقدم آلاف الدروس التعليمية لمساعدتك على إتقان Excel.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل