كيفية التحقق مما إذا كانت الخلية تحتوي على صورة في Excel؟
من السهل العثور على كافة الصور وتحديدها في ورقة عمل نشطة في Excel. لكن هل تعرف كيفية التحقق مما إذا كانت الخلية تحتوي على صورة في Excel؟ طريقة في هذه المقالة يمكن أن تساعدك.
تحقق مما إذا كانت الخلية تحتوي على صورة برمز VBA
تحقق مما إذا كانت الخلية تحتوي على صورة برمز VBA
يمكن أن يساعدك رمز VBA أدناه في التحقق مما إذا كانت الخلية تحتوي على صورة. الرجاء القيام بما يلي.
1. افتح ورقة العمل التي تريدها للتحقق مما إذا كانت الصورة موجودة في خلية محددة ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق كود فبا في نافذة الكود.
كود فبا: تحقق مما إذا كانت الخلية تحتوي على صورة في إكسيل
Sub CellHasPicture()
Dim xRg As Range
Dim xShape As Shape
Dim xFlag As Boolean
On Error Resume Next
Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xFlag = False
For Each xShape In ActiveSheet.Shapes
If xShape.TopLeftCell.Address = xRg.Address Then
xFlag = True
End If
Next
If xFlag Then
MsgBox "Image exists!"
Else
MsgBox "Image does not exist"
End If
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود. في ظهرت كوتولس ل إكسيل في مربع الحوار، الرجاء إدخال الخلية التي تريد التحقق مما إذا كانت تحتوي على صورة، ثم انقر فوق OK زر. انظر لقطة الشاشة:
4. بعد ذلك سيظهر مربع حوار كما هو موضح أدناه في لقطة الشاشة إذا كانت الصورة موجودة أم لا في الخلية المحددة.
مقالات ذات صلة:
- كيفية تغيير جميع الصور تلقائيًا لنقلها وحجمها باستخدام الخلايا في Excel؟
- كيفية توسيط صورة في خلية Excel؟
- كيفية إدراج صورة أو صورة ديناميكيًا في الخلية بناءً على قيمة الخلية في Excel؟
- كيفية تكبير الصورة عند الضغط عليها في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!