كيف تتحقق من وجود شكل أو صورة في الورقة النشطة؟
على سبيل المثال ، تمت إضافة العشرات من الأشكال أو الصور في ورقة العمل النشطة بالفعل ، والآن تريد التحقق مما إذا كان هناك شكل أو صورة معينة موجودة في الورقة النشطة أم لا ، كيف يمكنك التعامل مع هذه المهمة بسرعة دون التحقق من الأشكال أو الصور واحدة تلو الأخرى؟ في Excel ، لا يمكن أن تساعدك أي وظيفة مضمنة ، ولكن في هذه المقالة ، أقدم رمز VBA لمعرفة ما إذا كان هناك شكل أو صورة في الورقة النشطة بسرعة.
تحقق من وجود شكل أو صورة في الورقة النشطة
تحقق من وجود شكل أو صورة في الورقة النشطة
يرجى تطبيق رمز الماكرو أدناه للتحقق من وجود صورة معينة في الورقة النشطة.
1. صحافة ALT + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة ولصق الكود أدناه في البرنامج النصي.
فبا: تحقق من وجود شكل أو صورة
Sub CheckImage () 'UpdatebyExtendoffice20170927 Dim xChar كصورة Dim xFlag كـ Boolean Dim xCharName كسلسلة عند الخطأ استئناف التطبيق التالي. MsgBox "الصورة موجودة على الورقة النشطة" ، vbInformation ، "KuTools For Excel" xFlag = True Exit For End If Next إذا لم يكن xFlag ثم MsgBox "الصورة ليست على الورقة النشطة" ، vbInformation ، "KuTools For Excel" End إذا كان Application.ScreenUpdating = True End Sub
3. صحافة F5 لتشغيل الكود ، يظهر مربع حوار لتذكيرك إذا كانت الصورة موجودة في الورقة النشطة.
معلومه- سرية: في كود الماكرو ، يمكنك تغيير اسم الصورة بتنسيق xCharName = "قطة" لتلبية حاجتك.
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!