कैसे जांचें कि सक्रिय शीट में कोई आकृति या छवि मौजूद है या नहीं?
उदाहरण के लिए, सक्रिय वर्कशीट में पहले से ही दर्जनों आकृतियाँ या छवियाँ जोड़ी गई हैं, और अब आप यह जाँचना चाहते हैं कि सक्रिय शीट में कोई विशिष्ट आकृति या छवि मौजूद है या नहीं, तो आप आकृतियों की जाँच किए बिना इस काम को जल्दी से कैसे संभाल सकते हैं या छवियाँ एक-एक करके? एक्सेल में, कोई भी अंतर्निहित फ़ंक्शन आपकी मदद नहीं कर सकता है, लेकिन इस लेख में, मैं सक्रिय शीट में कोई आकृति या छवि मौजूद है या नहीं, इसका तुरंत पता लगाने के लिए एक वीबीए कोड पेश करता हूं।
जांचें कि सक्रिय शीट में कोई आकृति या छवि मौजूद है या नहीं
जांचें कि सक्रिय शीट में कोई आकृति या छवि मौजूद है या नहीं
सक्रिय शीट में कोई विशिष्ट छवि मौजूद है या नहीं यह जांचने के लिए कृपया नीचे दिए गए मैक्रो कोड को लागू करें।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल और नीचे दिए गए कोड को स्क्रिप्ट में पेस्ट करें।
वीबीए: जांचें कि कोई आकृति या छवि मौजूद है या नहीं
उप चेकइमेज() 'अद्यतन करेंExtendoffice20170927 चित्र के रूप में मंद xChar बूलियन के रूप में मंद xफ़्लैग स्ट्रिंग के रूप में मंद xCharName त्रुटि पर अगला पुनरारंभ करें एप्लिकेशन.स्क्रीनअपडेटिंग = गलत xCharName = "बिल्ली" xFlag = गलत ActiveSheet.Pictures में प्रत्येक xChar के लिए डीबग.प्रिंट xChar.Name यदि xChar.Name = xCharName तो MsgBox "छवि सक्रिय शीट पर है", vbInformation, "Excel के लिए KuTools" xFlag = सत्य के लिए बाहर निकलें अगर अंत अगला यदि xFlag नहीं है तो MsgBox "छवि सक्रिय शीट पर नहीं है", vbInformation, "Excel के लिए KuTools" अगर अंत एप्लिकेशन.स्क्रीनअपडेटिंग = सत्य अंत उप
3। दबाएँ F5 कोड को चलाने के लिए, एक संवाद आपको याद दिलाने के लिए पॉप आउट होता है कि क्या छवि सक्रिय शीट में मौजूद है।
टिप: मैक्रो कोड में, आप छवि का नाम बदल सकते हैं xCharName = "बिल्ली" आपकी जरूरत को पूरा करने के लिए.
संबंधित लेख:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!