एक्सेल - एक मैक्रो एक वर्कशीट में तस्वीरें डालने के लिए
- मुद्दा
- उपाय
मुद्दा
मैं मैक्रो का उपयोग करते हुए एक्सेल कॉलम में चित्र सम्मिलित करने का प्रयास कर रहा हूं जो बी 2 सेल से फाइल नाम रिफ्रेंस लेता है और ए 2 सेल में चित्र सम्मिलित करता है। उदाहरण के लिए: यदि B2 में N235 है तो जो चित्र A2 में डाला जाएगा वह Macro में दिए गए पथ से N235.jpg होगा। यह ठीक काम कर रहा है EXCEPT जब फ़ोल्डर में कोई चित्र नहीं होता है, जैसा कि फ़ोल्डर में नाम होता है।- मुझे 1004 रनटाइम एरर मिल रहा है और मैक्रों रुक जाते हैं और उस सेल के बाद तस्वीर नहीं भर सकते।
उपाय
उप चित्र ()स्ट्रिंग के रूप में डिम पिकनाम
डीम पेस्ट एज़ एज़ एंगर
लंबे समय के रूप में मंद
lThisRow = 2
जबकि (सेल (lThisRow, 2) "")
pasteAt = lThisRow
कक्ष (पेस्ट। 1, 1)। चयन करें 'यह वह जगह है जहाँ चित्र डाला जाएगा
picname = कक्ष (lThisRow, 2) 'यह चित्र नाम है
present = Dir ("C: \ Users \ Administrator \ Desktop \ LC \" & picname & ".jpg")
यदि वर्तमान में "" तब
ActiveSheet.Pictures.Insert ("C: \ Users \ Administrator \ Desktop \ LC \" & picname & ".jpg")) चित्रों को संग्रहीत करने के लिए पथ का चयन करें।
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'यह तस्वीर का आकार बदलता है
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
चयन के साथ
'.लिफ्ट = रेंज ("ए 6")। लेफ्ट
'.Top = श्रेणी ("A6")। शीर्ष
.Left = सेल (पेस्टअट, 1) .Left
.Top = सेल्स (पेस्टअट, 1) .Top
.शैपरेन्ज.लॉकएस्पेक्ट रेशियो = msoFalse
.शापरंगे। हाइट = 100 #
.शैपरेन्ज। क्या = 130 #
.शेयररेन्ज। उद्धरण = 0 #
के साथ समाप्त करना
अन्य
कक्ष (पेस्टआट, 1) = "कोई चित्र नहीं मिला"
अगर अंत
lThisRow = lThisRow + 1
लूप
रेंज ( "A10")। का चयन करें
Application.ScreenUpdating = True
उप से बाहर निकलें
ErrNoPhoto:
अगर फोटो नहीं मिला तो संदेश बॉक्स "MsgBox" फ़ोटो खोजने में असमर्थ है
उप से बाहर निकलें
रेंज ( "B20")। का चयन करें
अंत उप
इस टिप के लिए rizvisa1 का धन्यवाद।