एक्सेल में वर्कशीट से यूजरफॉर्म में इमेज कॉपी कैसे करें?
यह आलेख आपको एक्सेल में सक्रिय वर्कशीट से यूजरफॉर्म में एक छवि की प्रतिलिपि बनाने के तरीके दिखाएगा।
कॉपी और पेस्ट करके छवि को वर्कशीट से यूजरफॉर्म में कॉपी करें
वीबीए कोड के साथ वर्कशीट से इमेज को यूजरफॉर्म में कॉपी करें
कॉपी और पेस्ट करके छवि को वर्कशीट से यूजरफॉर्म में कॉपी करें
कृपया किसी छवि को वर्कशीट से यूजरफॉर्म में कॉपी करने के लिए निम्नानुसार कार्य करें।
1. वर्कशीट में वह छवि शामिल है जिसे आपको यूजरफॉर्म में कॉपी करने की आवश्यकता है, और फिर दबाएं ऑल्ट + F11 कुंजियाँ एक साथ खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया क्लिक करें सम्मिलित करें > userform. स्क्रीनशॉट देखें:
3. अब कृपया यूजरफॉर्म में एक इमेज कंट्रोल डालें। कृपया क्लिक करें छवि में बटन टूलबॉक्स संवाद बॉक्स, फिर उसमें एक छवि नियंत्रण बनाएं userform मैन्युअल रूप से। स्क्रीनशॉट देखें:
4. सम्मिलित छवि नियंत्रण पर राइट-क्लिक करें, और क्लिक करें गुण नीचे दिखाए गए स्क्रीनशॉट के अनुसार संदर्भ मेनू से:
5. फिर आप देख सकते हैं a गुण फलक बाईं ओर प्रदर्शित होता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
6. वर्कशीट पर वापस जाएं और उस चित्र का चयन करें जिसे आप यूजरफॉर्म में प्रदर्शित करना चाहते हैं, और फिर चित्र को दबाकर कॉपी करें कंट्रोल + C चांबियाँ।
7. अंदर जाओ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक फिर से, क्लिक करने के लिए नीचे स्क्रॉल करें चित्र फ़ील्ड और फिर कॉपी किए गए चित्र का नाम वर्णमाला टैब के अंतर्गत उसमें चिपकाएँ।
अब वर्कशीट में चित्र यूजरफॉर्म में कॉपी हो गया है।
वीबीए कोड के साथ वर्कशीट से इमेज को यूजरफॉर्म में कॉपी करें
यह अनुभाग आपको वर्कशीट से एक यूजरफॉर्म में कई चित्रों की प्रतिलिपि बनाने के लिए एक समाधान दिखाएगा, और फिर कॉम्बो बॉक्स से चित्र नाम का चयन करके यूजरफॉर्म में संबंधित चित्र प्रदर्शित करेगा। कृपया निम्नानुसार करें.
1. कृपया उपरोक्त चरण 1 और 2 का पालन करें या अपनी वर्कशीट में एक यूजरफॉर्म डालें।
2. फिर a डालें फ़्रेम नियंत्रण नीचे दिखाए गए स्क्रीनशॉट के अनुसार UserFrom में:
3. सम्मिलित फ़्रेम पर राइट-क्लिक करें, और चुनें गुण संदर्भ मेनू से. बाएँ में गुण फलक, कृपया चुनें झूठा से दृष्टिगोचर मैदान। स्क्रीनशॉट देखें:
4. नीचे स्क्रीनशॉट में दिखाए अनुसार फ़्रेम में एकाधिक छवि नियंत्रण डालें।
5. वर्कशीट पर वापस जाएं और उस चित्र का चयन करें जिसे आप यूजरफॉर्म में प्रदर्शित करना चाहते हैं, और दबाएं कंट्रोल + C इसे कॉपी करने के लिए चाबी
6. अंदर जाओ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, पहले छवि नियंत्रण पर राइट-क्लिक करें, और चयन करें गुण राइट-क्लिक मेनू से. दिखाए गए स्क्रीनशॉट को देखें।
7। में गुण फलक, कृपया पर क्लिक करें चित्र फ़ील्ड, फिर दबाएँ कंट्रोल + V चरण 5 में आपके द्वारा कॉपी किए गए चित्र को चिपकाने के लिए कुंजियाँ, और फिर चयन करें 1 - fmPictureSizeModeStrtch से चित्र आकार मोड नीचे दिखाए गए स्क्रीनशॉट के अनुसार ड्रॉप-डाउन सूची।
8. वर्कशीट से अन्य चित्रों को यूजरफॉर्म में बाईं ओर छवि नियंत्रण में पेस्ट करने के लिए चरण 5 - 7 को दोहराएं। और परिणाम नीचे दिखाए गए स्क्रीनशॉट के अनुसार प्रदर्शित होगा।
9. ले जाएँ ढांचा UserForm के कोने पर नियंत्रण रखें, फिर एक नया डालें छवि नियंत्रण और ए सम्मिश्रण पटी UserForm में नियंत्रण करें। स्क्रीनशॉट देखें:
10. राइट-क्लिक करें userform, और फिर क्लिक करें कोड देखें. फिर कोड विंडो में मूल कोड को बदलने के लिए VBA कोड के नीचे कॉपी और पेस्ट करें।
वीबीए कोड1: छवि को वर्कशीट से यूजरफॉर्म में कॉपी करें
Private Sub ComboBox1_Change()
UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
Dim xImg As Control
On Error Resume Next
For Each xImg In UserForm1.Controls
If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
UserForm1.ComboBox1.AddItem xImg.Name
End If
Next
End Sub
नोट: कोड में, उपयोक्ताफार्म1 सम्मिलित उपयोगकर्ताफॉर्म का नाम है, Image4 यह छवि नियंत्रण का नाम है जिसके अंदर आप चित्र प्रदर्शित करेंगे। और छवि उन सभी छवि नियंत्रणों का प्रतिनिधित्व करती है जिनमें आपके द्वारा वर्कशीट से कॉपी किए गए चित्र शामिल हैं। कॉम्बोबॉक्स1 वह कम्बोबॉक्स नाम है जिसे आपने उपयोगकर्ता प्रपत्र में डाला है। कृपया उन्हें अपने में बदलें.
11. बंद करें अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
12. क्लिक करके वर्कशीट में कमांड बटन डालें डेवलपर > सम्मिलित करें > कमांड बटन (एक्टिवएक्स कंट्रोल).
13. कमांड बटन पर राइट-क्लिक करें और चुनें कोड देखें संदर्भ मेनू से. और फिर नीचे दिए गए VBA कोड को कॉपी करके कोड विंडो में पेस्ट करें। और अंत में विंडो बंद कर दें।
वीबीए कोड2: छवि को वर्कशीट से यूजरफॉर्म में कॉपी करें
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
15। क्लिक करें डेवलपर > डिजाइन मोड डिज़ाइन मोड को बंद करने के लिए।
अब से, कमांड बटन पर क्लिक करने पर यूजरफॉर्म पॉप अप हो जाएगा। आप कॉम्बो बॉक्स से छवि का नाम चुनकर चित्र प्रदर्शित कर सकते हैं। स्क्रीनशॉट देखें:
कॉम्बो बॉक्स से अलग-अलग नाम चुनें, यूजरफॉर्म में अलग-अलग चित्र प्रदर्शित होंगे।
संबंधित आलेख:
- एक्सेल सेल में किसी चित्र को केन्द्रित कैसे करें?
- एक्सेल में किसी सेल में चित्र है या नहीं इसकी जांच कैसे करें?
- एक्सेल में सेल वैल्यू के आधार पर सेल में गतिशील रूप से छवि या चित्र कैसे डालें?
- Excel में छवि पर क्लिक करने पर उसे बड़ा कैसे करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!