एक्सेल में टेक्स्ट को संबंधित चित्रों से कैसे बदलें?
मान लीजिए, मेरे पास वर्कशीट में उत्पाद नामों की एक सूची है, और एक फ़ोल्डर में कंप्यूटर डिस्क में उत्पाद नामों की संबंधित तस्वीरें हैं। अब, मुझे एक्सेल में उत्पाद के नामों को उनकी संबंधित छवियों के साथ ढूंढने और बदलने की आवश्यकता है, जैसा कि दिखाए गए स्क्रीनशॉट में दिखाया गया है, उन्हें एक-एक करके सम्मिलित किए बिना। एक्सेल में इस काम से निपटने के लिए कोई अच्छा और त्वरित समाधान है?
टेक्स्ट को VBA कोड के साथ संबंधित चित्रों से बदलें
एक्सेल के लिए कुटूल के साथ टेक्स्ट को संबंधित चित्रों से बदलें
टेक्स्ट को VBA कोड के साथ संबंधित चित्रों से बदलें
आम तौर पर, एक्सेल में टेक्स्ट स्ट्रिंग के आधार पर संबंधित चित्र सम्मिलित करने का हमारे लिए कोई आसान और सीधा तरीका नहीं है, लेकिन, निम्नलिखित वीबीए कोड आपको टेक्स्ट को उसके संबंधित चित्र से बदलने में मदद कर सकता है।
1. दबाएँ ऑल्ट + F11 प्रदर्शित करने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. विंडो में, क्लिक करें सम्मिलित करें > मॉड्यूल एक नई मॉड्यूल विंडो दिखाने के लिए, फिर निम्नलिखित VBA कोड को कॉपी और पेस्ट करें मॉड्यूल खिड़की.
वीबीए कोड: टेक्स्ट को संबंधित चित्रों से बदलें
Sub InsertPicture()
'Upadateby Extendoffice
Dim xPath As String
Dim xLastRow As Long
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
xPath = "C:\Users\dt\Desktop\Fruits\"
If Right(xPath, 1) <> "\" Then xPath = xPath & "\"
xLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each Rng In WorkRng
If Rng.Value <> "" Then
If Dir(xPath & Rng.Value & ".jpg") <> "" Then
ActiveSheet.Pictures.Insert(xPath & Rng.Value & ".jpg").Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Rng.Left
.Top = Rng.Top
.Width = Rng.Width
.Height = Rng.Height
End With
Rng.ClearContents
Else
Rng.Value = "N/A"
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और उस डेटा श्रेणी का चयन करें जिसे आप पॉप आउट संवाद में संबंधित चित्र सम्मिलित करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, सेल के समान आकार वाली सभी संबंधित छवियों को मूल पाठ से बदल दिया जाएगा, स्क्रीनशॉट देखें:
टिप्पणियाँ:
1. उपरोक्त कोड में, आपको चित्रों के फ़ोल्डर पथ को अपनी आवश्यकता के अनुसार बदलना होगा, xPath = "C:\Users\dt\Desktop\Fruits\".
2. यदि पाठ से मेल खाने के लिए कोई संबंधित चित्र नहीं हैं, तो त्रुटि एन/ए प्रदर्शित होगी।
एक्सेल के लिए कुटूल के साथ टेक्स्ट को संबंधित चित्रों से बदलें
चूंकि उपरोक्त कोड में महारत हासिल करना कठिन है, इसलिए यहां, मैं आपको एक आसान और शक्तिशाली टूल से परिचित कराऊंगा - एक्सेल के लिए कुटूल, के साथ अपने आयात चित्रों का मिलान करें सुविधा, आप पाठ की सूची से मिलान करने के लिए चित्रों को जल्दी और आसानी से सम्मिलित कर सकते हैं।
एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:
1। क्लिक करें कुटूल्स प्लस > आयात निर्यात > आयात चित्रों का मिलान करें, स्क्रीनशॉट देखें:
2. में आयात चित्रों का मिलान करें संवाद बॉक्स पर क्लिक करें उस श्रेणी का चयन करने के लिए बटन जिसे आप चित्रों के साथ मिलान करना चाहते हैं, स्क्रीनशॉट देखें:
3। फिर में आयात चित्रों का मिलान करें संवाद, क्लिक करें > पट्टिका or फ़ोल्डर जो चित्र आप सम्मिलित करना चाहते हैं उन्हें ढूंढने के लिए स्क्रीनशॉट देखें:
4. संबंधित छवियाँ डालने के बाद क्लिक करें आयात आकार बटन, निम्नलिखित में चित्र का आकार आयात करें संवाद, अपने चित्र के आकार के लिए एक विकल्प निर्दिष्ट करें। स्क्रीनशॉट देखें:
5। तब दबायें OK > आयात, और फिर पॉप आउट से अपनी संबंधित छवियों का पता लगाने के लिए एक सेल चुनें आयात चित्रों का मिलान करें संवाद (आप पाठ का मूल कक्ष भी चुन सकते हैं), स्क्रीनशॉट देखें:
6। और फिर क्लिक करें OK बटन, टेक्स्ट से मेल खाने वाले सभी चित्र वर्कशीट में डाल दिए गए हैं, स्क्रीनशॉट देखें:
टिप्पणियाँ:
1. यदि पाठ के साथ कोई मिलान चित्र नहीं हैं, तो सेल कुछ भी सम्मिलित नहीं करेगा।
2. यदि आप चित्रों को क्षैतिज रूप से सम्मिलित करना चाहते हैं, तो आप जाँच कर सकते हैं सेल दर सेल क्षैतिज रूप से भरें में आयात आदेश अनुभाग।
एक्सेल के लिए कुटूल अभी डाउनलोड करें और निःशुल्क परीक्षण करें!
डेमो: एक्सेल के लिए कुटूल के साथ टेक्स्ट को संबंधित चित्रों से बदलें
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!