एक्सेल छवियां: एक्सेल में एकाधिक छवियां या चित्र सम्मिलित करें, बदलें, हटाएं
इस ट्यूटोरियल में, हम इस बारे में बात करेंगे कि सेल में एकाधिक छवियां कैसे डालें और सेल आकार में फिट होने के लिए उनका आकार कैसे बदलें, टिप्पणी, हेडर या पाद लेख में छवि कैसे डालें, यूआरएल से छवियां कैसे डालें इत्यादि। यह यह भी बताता है कि एक्सेल में आवश्यकतानुसार एकाधिक छवियों को कैसे सहेजना, नाम बदलना और हटाना है।
विषय - सूची:
1. कंप्यूटर, वेब या वनड्राइव से वर्कशीट में चित्र या तस्वीरें डालें
2. छवियों या चित्रों को एक्सेल सेल में लॉक करें
3. एक्सेल में एकाधिक छवियाँ या चित्र सम्मिलित करें
- 3.1 एकाधिक छवियाँ या चित्र सम्मिलित करें और वीबीए कोड के साथ कोशिकाओं में फ़िट करने के लिए उनका आकार बदलें
- 3.2 एकाधिक छवियाँ या चित्र सम्मिलित करें और एक शक्तिशाली सुविधा के साथ कोशिकाओं में फिट होने के लिए उनका आकार बदलें
4. सेल में उनके नाम से मेल खाने वाली कई छवियां या तस्वीरें डालें
- 4.1 वीबीए कोड के साथ उनके नाम से मेल खाते हुए कई चित्र या तस्वीरें डालें
- 4.2 एक उपयोगी सुविधा के साथ उनके नाम से मेल खाने वाली कई छवियां या चित्र डालें
5. यूआरएल से चित्र या तस्वीरें डालें या प्रदर्शित करें
- 5.1 वीबीए कोड वाले यूआरएल से छवियां या चित्र डालें या प्रदर्शित करें
- 5.2 एक अद्भुत सुविधा के साथ यूआरएल से छवियां या चित्र सम्मिलित करें या प्रदर्शित करें
6. फ़ाइल पथों से छवियाँ या चित्र सम्मिलित करें या प्रदर्शित करें
- 6.1 वीबीए कोड के साथ फ़ाइल पथ से छवियां या चित्र सम्मिलित करें या प्रदर्शित करें
- 6.2 एक अद्भुत सुविधा के साथ फ़ाइल पथों से छवियां या चित्र सम्मिलित करें या प्रदर्शित करें
7. किसी टिप्पणी में छवि या तस्वीर डालें
8. शीर्ष लेख या पाद लेख में छवि या चित्र डालें
9. एक ही छवि या चित्र को एकाधिक कार्यपत्रकों में सम्मिलित करें
10. सेल सामग्री के पीछे छवि या चित्र डालें
- 10.1 पृष्ठभूमि सुविधा के साथ सेल सामग्री के पीछे छवि या चित्र डालें
- 10.2 सेल सामग्री के पीछे पारदर्शी छवि या चित्र डालें
- 10.3 वॉटरमार्क के रूप में सेल सामग्री के पीछे पारदर्शी छवि या चित्र डालें
11. Excel में छवि या चित्र प्रारूप के रूप में कक्षों की एक श्रृंखला सम्मिलित करें
- 11.1 चित्र के रूप में कॉपी करें सुविधा के साथ छवि या चित्र प्रारूप के रूप में कक्षों की एक श्रृंखला सम्मिलित करें
- 11.2 कैमरा टूल के साथ छवि या चित्र प्रारूप के रूप में कक्षों की एक श्रृंखला सम्मिलित करें
- 11.3 एक उपयोगी सुविधा के साथ छवि या चित्र प्रारूप के रूप में कक्षों की एक श्रृंखला सम्मिलित करें
12. सेल मान के आधार पर गतिशील रूप से छवि या चित्र डालें
- 12.1 नामांकित श्रेणी सुविधा के साथ गतिशील रूप से सेल मान के आधार पर छवि या चित्र डालें
- 12.2 एक उपयोगी सुविधा के साथ गतिशील रूप से सेल मान के आधार पर छवि या चित्र सम्मिलित करें
13. एक्सेल फ़ाइल से सभी छवियों या चित्रों को निर्यात करें या सहेजें
- 13.1 सेव एज़ सुविधा के साथ एक्सेल से सभी छवियों या चित्रों को निर्यात या सहेजें
- 13.2 फ़ाइल एक्सटेंशन को बदलने के साथ एक्सेल से सभी छवियों या चित्रों को निर्यात या सहेजें
- 13.3 एक शक्तिशाली सुविधा के साथ एक्सेल से सभी छवियों या चित्रों को निर्यात या सहेजें
14. Excel में कक्षों की सूची के आधार पर किसी फ़ोल्डर में छवि नामों का नाम बदलें
15. छवि पर क्लिक करने पर उसे बड़ा या छोटा करें
कंप्यूटर, वेब या वनड्राइव से वर्कशीट में चित्र या तस्वीरें डालें
सभी Excel संस्करण कंप्यूटर से छवियाँ या चित्र सम्मिलित करने का समर्थन करते हैं, लेकिन, यदि आप वेब या OneDrive से छवियाँ सम्मिलित करना चाहते हैं, तो आपके पास Excel 2013 और बाद का संस्करण होना चाहिए।
कंप्यूटर से छवियाँ या चित्र सम्मिलित करें
हममें से अधिकांश के लिए कंप्यूटर पर संग्रहीत छवियों को वर्कशीट में सम्मिलित करना आसान है। कृपया इस प्रकार करें:
1. वर्कशीट में, जहाँ आप छवियाँ सम्मिलित करना चाहते हैं, वहाँ क्लिक करें।
2। तब दबायें सम्मिलित करें > तस्वीरें > यह उपकरण, स्क्रीनशॉट देखें:
3. बाहर निकले में चित्र सम्मिलित करें विंडो, वह फ़ोल्डर खोलें जिसमें चित्र हैं, और फिर दबाए रखें कंट्रोल उन छवियों को चुनने की कुंजी जिन्हें आप सम्मिलित करना चाहते हैं, स्क्रीनशॉट देखें:
4। तब दबायें सम्मिलित करें बटन, चयनित चित्रों को शीट में डाल दिया गया है। अब, आप छवियों को अपनी आवश्यकतानुसार सेल में समायोजित या आकार बदल सकते हैं, स्क्रीनशॉट देखें:
वेब या वनड्राइव से छवियाँ या चित्र सम्मिलित करें
यदि आपके पास एक्सेल 2013 या बाद का संस्करण है, तो आप वेब या वन ड्राइव से छवियां सम्मिलित कर सकते हैं, कृपया ऐसा करें:
1. वर्कशीट में, जहाँ आप छवियाँ सम्मिलित करना चाहते हैं, वहाँ क्लिक करें।
2। तब दबायें सम्मिलित करें > तस्वीरें > ऑनलाइन चित्र, स्क्रीनशॉट देखें:
3. एक निम्न विंडो प्रदर्शित की जाएगी. में ऑनलाइन चित्र अनुभाग, कृपया टेक्स्टबॉक्स में वह लिखें जो आप खोज रहे हैं, और फिर दबाएँ दर्ज चाबी। सभी संबंधित चित्र एक ही बार में खोजे जाते हैं, स्क्रीनशॉट देखें:
4. फिर, अपनी इच्छित तस्वीरें चुनें और फिर क्लिक करें सम्मिलित करें बटन। चित्र डालने के बाद, कृपया चित्रों का आकार बदलें या अपनी आवश्यकतानुसार स्थिति में समायोजित करें।
सुझाव:
1. कुछ विशिष्ट छवियों को खोजने के लिए, आप अपनी आवश्यकता के अनुसार पाई गई छवियों को आकार, प्रकार, लेआउट या रंग के अनुसार फ़िल्टर कर सकते हैं।
2. बिंग सर्च से छवियां सम्मिलित करने के अलावा, आप अपने वनड्राइव पर संग्रहीत चित्र भी सम्मिलित कर सकते हैं। नीचे दी गई विंडो में, क्लिक करें OneDrive विंडो के बाईं ओर नीचे, और फिर उन छवियों का चयन करें जिन्हें आप सम्मिलित करना चाहते हैं।
छवियों या तस्वीरों को एक्सेल सेल में लॉक करें
आम तौर पर, छवियों को कोशिकाओं में डालने के बाद, जब आप छवि वाले कोशिकाओं का आकार बदलते हैं, फ़िल्टर करते हैं या छिपाते हैं, तो उस सेल के साथ छवि का आकार या फ़िल्टर नहीं किया जाएगा जैसा कि नीचे दिए गए डेमो में दिखाया गया है।
इस मामले में, आपको चित्र को सेल में लॉक कर देना चाहिए, ताकि इसे सेल के साथ आकार दिया जा सके, फ़िल्टर किया जा सके या छुपाया जा सके, कृपया निम्नलिखित चरणों का पालन करें:
1. एक चित्र चुनने के लिए क्लिक करें और दबाएँ Ctrl + एक वर्कशीट में सभी छवियों का चयन करने के लिए।
2. फिर, एक चित्र पर राइट क्लिक करें और चुनें आकार और गुण संदर्भ मेनू से, स्क्रीनशॉट देखें:
3. विस्तारित में स्वरूप चित्र फलक, के अंतर्गत गुण अनुभाग चुनें कोशिकाओं के साथ ले जाएँ और आकार दें विकल्प, स्क्रीनशॉट देखें:
4. फिर, बंद करें स्वरूप चित्र फलक. अब, कोशिकाओं का आकार बदलने, फ़िल्टर करने या छिपाने पर, चित्र भी स्थानांतरित, फ़िल्टर या छिपाए जाएंगे।
एक्सेल में एकाधिक छवियाँ या चित्र सम्मिलित करें
कभी-कभी, आपको कोशिकाओं में कई चित्र डालने और चित्रों को आकार बदलने या खींचने के बिना स्वचालित रूप से सेल आकार में फिट होने के लिए उनका आकार बदलने की आवश्यकता हो सकती है। यहां, मैं एक्सेल में इस कार्य को हल करने के दो तरीके पेश करूंगा।
एकाधिक छवियां या चित्र डालें और वीबीए कोड के साथ कोशिकाओं में फ़िट करने के लिए उनका आकार बदलें
निम्नलिखित VBA कोड आपको सेल आकार के आधार पर सेल में एकाधिक छवियां सम्मिलित करने में मदद कर सकता है। कृपया इस प्रकार करें:
1. उस सेल का आकार समायोजित करें जिस पर आप चित्र लगाना चाहते हैं, और फिर सेल का चयन करें।
2. फिर, दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की.
वीबीए कोड: सेल आकार के आधार पर एकाधिक चित्र सम्मिलित करें
Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
xRowIndex = Application.ActiveCell.Row
For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xRowIndex = xRowIndex + 1
Next
End If
End Sub
4। तब दबाएं F5 इस कोड को चलाने की कुंजी. में प्रारंभिक विंडो, कृपया वह फ़ोल्डर चुनें जिसमें चित्र हैं, फिर वे चित्र चुनें जिन्हें आप सम्मिलित करना चाहते हैं, और फिर क्लिक करें प्रारंभिक बटन, और सभी चयनित चित्र सेल आकार के आधार पर आपके चयन में सम्मिलित कर दिए गए हैं। स्क्रीनशॉट देखें:
एक से अधिक छवियां या तस्वीरें डालें और एक शक्तिशाली सुविधा के साथ कोशिकाओं में फिट होने के लिए उनका आकार बदलें
यदि आप वीबीए कोड से परिचित नहीं हैं, तो यहां, आप एक पावर सुविधा का उपयोग कर सकते हैं - तस्वीरें आयात करें of एक्सेल के लिए कुटूल. इस उपयोगी सुविधा के साथ, आप कई छवियों को जल्दी और आसानी से कोशिकाओं में आयात कर सकते हैं।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नलिखित चरणों का पालन करें:
1। क्लिक करें कुटूल्स प्लस > आयात निर्यात > तस्वीरें आयात करें, स्क्रीनशॉट देखें:
2. बाहर निकले में तस्वीरें आयात करें संवाद, कृपया निम्नलिखित कार्य करें:
- आयात आदेश ड्रॉप डाउन सूची से चित्र क्रम निर्दिष्ट करें, आप चुन सकते हैं सेल दर सेल लंबवत रूप से भरें or सेल दर सेल क्षैतिज रूप से भरें;
- तब दबायें चित्रों को जोड़ने के लिए छवि फ़ाइलों या फ़ोल्डर का चयन करने के लिए बटन चित्र सूची;
- दबाएं आयात आकार बटन, में चित्र का आकार आयात करें संवाद बॉक्स, का चयन करें मिलान सेल आकार विकल्प.
3. सेटिंग्स ख़त्म करने के बाद कृपया क्लिक करें आयात बटन, और अब, दूसरा तस्वीरें आयात करें पॉप आउट हो गया है, उन गंतव्य कक्षों को निर्दिष्ट करें जिनमें आप चित्र आयात करेंगे, स्क्रीनशॉट देखें:
4। तब दबायें OK बटन, सभी चयनित छवियों को विशिष्ट कोशिकाओं के आकार से मेल खाने के लिए डाला गया है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है:
सेल में उनके नाम से मेल खाने वाली कई छवियां या तस्वीरें डालें
यदि आपके पास एक कॉलम में उत्पाद नामों की सूची है, और अब, आपको नीचे दिखाए गए स्क्रीनशॉट के अनुसार उनके संबंधित चित्रों को दूसरे कॉलम में सम्मिलित करना होगा। छवियों को सम्मिलित करना, और फिर उन्हें एक-एक करके प्रत्येक स्थिति में खींचना बहुत समय बर्बाद करेगा, इस अनुभाग में, मैं कुछ त्वरित तरीकों के बारे में बात करूंगा।
VBA कोड के साथ उनके नाम से मेल खाते हुए कई चित्र या तस्वीरें डालें
निम्नलिखित वीबीए कोड आपको उनके नाम से मेल खाती कई छवियों को शीघ्रता से सम्मिलित करने में मदद कर सकता है, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें inserटी > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की.
वीबीए कोड: उनके नाम से मेल खाते हुए कई चित्र डालें
Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
.Title = "Please select the folder:"
.InitialFileName = Application.ActiveWorkbook.Path
.Show
.AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
Exit Sub
End If
For xFNum = 1 To xRgName.Count
Set xRg = xRgName.Item(xFNum)
Set xRgI = xRgInser.Item(xFNum)
xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
With xRgI.Parent.Pictures.Insert(xStrPicPath)
.Left = xRgI.Left
.Top = xRgI.Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 60
.ShapeRange.Width = 60
End With
End If
Next
End Sub
नोट: उपरोक्त कोड में, आप स्क्रिप्ट के भीतर छवि की ऊंचाई और चौड़ाई बदल सकते हैं।.शेपरेंज.ऊंचाई = 60",".शेपरेंज.चौड़ाई = 60“आपकी जरूरत के लिए.
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और खुली हुई विंडो में, कृपया उस फ़ोल्डर का चयन करें जिसमें वे छवियां हैं जिन्हें आप सम्मिलित करना चाहते हैं, स्क्रीनशॉट देखें:
4. और फिर, क्लिक करें OK बटन, एक प्रॉम्प्ट बॉक्स पॉप आउट हो गया है, कृपया उन कक्षों का चयन करें जिनमें छवि नाम हैं, स्क्रीनशॉट देखें:
5. क्लिक करते जाइये OK बटन, और एक अन्य प्रॉम्प्ट बॉक्स का अनुसरण किया जाता है, कृपया उन कक्षों का चयन करें जिनमें आप छवियों को आउटपुट करना चाहते हैं, स्क्रीनशॉट देखें:
6. अंत में क्लिक करें OK, और चित्रों को एक ही बार में उनके नाम के आधार पर कोशिकाओं में डाला गया है, स्क्रीनशॉट देखें:
एक उपयोगी सुविधा के साथ उनके नाम से मेल खाते हुए कई चित्र या तस्वीरें डालें
यदि आपके पास एक्सेल के लिए कुटूल, के साथ अपने आयात चित्रों का मिलान करें सुविधा, आप छवि नामों के आधार पर छवियों को जल्दी और आसानी से सम्मिलित कर सकते हैं।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:
1। क्लिक करें कुटूल्स प्लस > आयात निर्यात > आयात चित्रों का मिलान करें, स्क्रीनशॉट देखें:
2. बाहर निकले में आयात चित्र का मिलान करें संवाद बॉक्स, कृपया निम्नलिखित कार्य करें:
- आयात आदेश ड्रॉप डाउन सूची से चित्र क्रम निर्दिष्ट करें, आप चुन सकते हैं सेल दर सेल लंबवत रूप से भरें or सेल दर सेल क्षैतिज रूप से भरें;
- फिर, से मिलान सीमा टेक्स्टबॉक्स में, उन चित्र नामों का चयन करें जिनके आधार पर आप चित्र सम्मिलित करना चाहते हैं;
- और फिर, क्लिक करें चित्रों को जोड़ने के लिए छवि फ़ाइलों या फ़ोल्डर का चयन करने के लिए बटन चित्र सूची;
- इसके बाद, आपको चित्र का आकार निर्दिष्ट करना चाहिए। फिर से लॉगिन करने के लिए आयात आकार बटन, में चित्र का आकार आयात करें संवाद बॉक्स में, अपनी आवश्यकतानुसार एक चित्र आकार चुनें।
3. सेटिंग्स ख़त्म करने के बाद कृपया क्लिक करें आयात बटन, पॉप आउट से छवियों का पता लगाने के लिए एक सेल या सेल की एक सूची चुनें आयात चित्रों का मिलान करें संवाद, स्क्रीनशॉट देखें:
4। तब दबायें OK, और सभी चित्र जिनमें सेल मानों से मेल खाने वाले नाम डाले गए हैं, स्क्रीनशॉट देखें:
यूआरएल से छवियाँ या चित्र सम्मिलित करें या प्रदर्शित करें
क्या आपने कभी यूआरएल की सूची से छवियों को प्रदर्शित करने या सम्मिलित करने का प्रयास किया है? हो सकता है कि छवियों को सीधे एक्सेल में डालने का कोई अन्य अच्छा तरीका न हो, लेकिन, आप इससे निपटने के लिए एक कोड या तीसरे पक्ष के टूल का उपयोग कर सकते हैं।
वीबीए कोड वाले यूआरएल से छवियां या चित्र डालें या प्रदर्शित करें
कृपया यूआरएल की सूची के आधार पर छवियां सम्मिलित करने के लिए निम्नलिखित वीबीए कोड लागू करें।
1. सबसे पहले, आसन्न सेल आकार को समायोजित करें जिसे आप छवियों का पता लगाना चाहते हैं।
2. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की.
वीबीए कोड: यूआरएल की सूची से चित्र सम्मिलित करें
Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub
नोट्स: उपरोक्त कोड में, A2: A5 यह उन कक्षों की श्रेणी है जिनमें वे URL पते शामिल हैं जिन्हें आप छवियां निकालना चाहते हैं, आपको अपनी आवश्यकता के अनुसार कक्ष संदर्भों को बदलना चाहिए।
4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, मिलान चित्रों को यूआरएल से आसन्न कॉलम में निकाला जाएगा और कोशिकाओं के केंद्र में रखा जाएगा, स्क्रीनशॉट देखें:
एक अद्भुत सुविधा के साथ यूआरएल से छवियां या तस्वीरें डालें या प्रदर्शित करें
एक्सेल के लिए कुटूल एक अद्भुत विशेषता है - पथ से चित्र सम्मिलित करें (यूआरएल). इस उपयोगिता के साथ, संबंधित चित्र यूआरएल से तेजी से और आसानी से निकाले जाएंगे।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नलिखित चरणों का पालन करें:
1। क्लिक करें कुटूल > सम्मिलित करें > पथ (यूआरएल) से चित्र सम्मिलित करें, स्क्रीनशॉट देखें:
2. बाहर निकले में पथ (यूआरएल) से चित्र सम्मिलित करें संवाद बॉक्स, कृपया निम्नलिखित परिचालन सेट करें:
- यूआरएल सेल की सूची और सेल की श्रेणी का चयन करें जहां आप छवियां रखना चाहते हैं;
- छवियों का आकार निर्दिष्ट करें जैसा आपको चाहिए चित्र का आकार अनुभाग।
3. और फिर, क्लिक करें Ok बटन, और सभी चित्र URL से निकाले गए हैं, स्क्रीनशॉट देखें:
फ़ाइल पथों से छवियाँ या चित्र सम्मिलित करें या प्रदर्शित करें
यदि आपको फ़ाइल पथ से छवियां सम्मिलित करने की आवश्यकता है, तो यहां आपके लिए समाधान भी प्रदान किया गया है।
VBA कोड के साथ फ़ाइल पथ से छवियाँ या चित्र सम्मिलित करें या प्रदर्शित करें
आप छवि फ़ाइल पथों के आधार पर छवियां सम्मिलित करने के लिए निम्नलिखित VBA कोड लागू कर सकते हैं।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: फ़ाइल पथों की एक श्रृंखला से छवियां सम्मिलित करें
Sub InsertPicFromFilePath()
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xVal As String
On Error Resume Next
Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xVal = xCell.Value
If xVal <> "" Then
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
xCell.Height
End If
Next
Application.ScreenUpdating = True
End Sub
3. उपरोक्त कोड डालने के बाद दबाएँ F5 इस कोड को चलाने के लिए कुंजी, फिर एक प्रॉम्प्ट बॉक्स पॉप आउट होता है, कृपया फ़ाइल पथ की कोशिकाओं का चयन करें, स्क्रीनशॉट देखें:
4। तब दबायें OK बटन, फ़ाइल पथों पर आधारित सभी छवियों को निम्नलिखित स्क्रीनशॉट में दिखाए गए अनुसार अगले कॉलम में प्रदर्शित किया गया है:
एक अद्भुत सुविधा के साथ फ़ाइल पथ से छवियाँ या चित्र सम्मिलित करें या प्रदर्शित करें
एक्सेल के लिए कुटूलहै पथ (यूआरएल) से चित्र सम्मिलित करें यह सुविधा आपको फ़ाइल पथ से संबंधित छवियों को प्रदर्शित करने में भी मदद कर सकती है।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:
1। क्लिक करें कुटूल > सम्मिलित करें > पथ (यूआरएल) से चित्र सम्मिलित करें, पॉप आउट संवाद बॉक्स में, कृपया फ़ाइल पथ सीमा, छवियों को आउटपुट करने के लिए सीमा, छवि का आकार जैसा आपको चाहिए, निर्दिष्ट करें, स्क्रीनशॉट देखें:
2. विकल्प सेट करने के बाद क्लिक करें Ok बटन, छवियों को एक ही बार में चयनित कक्षों में डाला जाएगा, स्क्रीनशॉट देखें:
किसी टिप्पणी में छवि या चित्र डालें
हो सकता है कि सेल में चित्र डालना आसान हो, लेकिन, कभी-कभी, आप टिप्पणी बॉक्स में चित्र डालना चाहेंगे, आप इस कार्य से कैसे निपटते हैं?
1. उस सेल का चयन करें और राइट क्लिक करें जहां आप टिप्पणी सम्मिलित करना चाहते हैं, और फिर चुनें टिप्पणी डालें, स्क्रीनशॉट देखें:
2. फिर कर्सर को टिप्पणी बॉक्स के किनारों पर तब तक घुमाएं, जब तक कि आप यह न देख लें कि कर्सर चार-तीर वाले आइकन में बदल जाता है। और फिर, राइट क्लिक करें और चुनें प्रारूप टिप्पणी विकल्प, स्क्रीनशॉट देखें:
3. बाहर निकले में प्रारूप टिप्पणी संवाद बॉक्स पर क्लिक करें रंग और रेखाएं टैब, और उसके बाद का चयन प्रभाव भरें से रंग ड्रॉप डाउन सूची, स्क्रीनशॉट देखें:
4. फिर, निम्नलिखित में प्रभाव भरें संवाद बॉक्स पर क्लिक करें चित्र टैब, और क्लिक करें चित्र का चयन करें एक चित्र चुनने के लिए बटन जिसे आप सम्मिलित करना चाहते हैं, स्क्रीनशॉट देखें:
5. और फिर, क्लिक करें OK > OK, चित्र कमेंट बॉक्स में डाला गया है, स्क्रीनशॉट देखें:
शीर्ष लेख या पाद लेख में छवि या चित्र डालें
यदि आप अपने एक्सेल वर्कशीट के शीर्षलेख या पादलेख में एक चित्र सम्मिलित करना चाहते हैं, तो इस अनुभाग के चरण आपकी मदद कर सकते हैं, कृपया ऐसा करें:
1. उस वर्कशीट को सक्रिय करें जहाँ आप छवि को शीर्षलेख या पादलेख में सम्मिलित करना चाहते हैं।
2। तब दबायें सम्मिलित करें > अगुआ पुछल्ला, और आप जाएंगे शीर्षलेख और पाद लेख उपकरण टैब. स्क्रीनशॉट देखें:
3. शीर्ष लेख या पाद लेख में एक चित्र सम्मिलित करने के लिए, कृपया अपनी आवश्यकतानुसार बाएँ, दाएँ या मध्य शीर्ष लेख या पाद लेख बॉक्स पर क्लिक करें और फिर, क्लिक करें चित्र नीचे डिज़ाइन टैब, स्क्रीनशॉट देखें:
4. फिर, एक चित्र सम्मिलित करें विंडो पॉप अप हो जाएगी, कृपया वह चित्र चुनें जिसे आप जोड़ना चाहते हैं और सम्मिलित करें पर क्लिक करें। अब एक &[तस्वीर] प्लेसहोल्डर शीर्ष लेख या पाद लेख बॉक्स में दिखाई देगा। शीर्ष लेख या पाद लेख बॉक्स के बाहर कहीं भी क्लिक करें, सम्मिलित चित्र नीचे दिखाए गए स्क्रीनशॉट के अनुसार प्रदर्शित किया जाएगा:
टिप्स: कभी-कभी, आप पाएंगे कि छवि वर्कशीट के डेटा क्षेत्र के साथ ओवरलैप हो गई है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। ऐसा इसलिए होता है क्योंकि छवि बहुत बड़ी है और इसका आकार हेडर या फ़ूटर अनुभाग बॉक्स में स्वचालित रूप से फ़िट होने के लिए नहीं बदला जाएगा।
इस समस्या को हल करने के लिए, आपको बस शीर्षलेख या पादलेख में छवि का आकार बदलना होगा, कृपया निम्नलिखित चरणों का पालन करें:
1. शीर्ष लेख या पाद लेख अनुभाग पर क्लिक करें जहां छवि स्थित है, और फिर क्लिक करें स्वरूप चित्र नीचे डिज़ाइन टैब, स्क्रीनशॉट देखें:
2. में स्वरूप चित्र डायलॉग बॉक्स, के अंतर्गत आकार टैब, कृपया शीर्ष लेख या पाद लेख अनुभाग बॉक्स में फिट होने के लिए छवि का आकार समायोजित करें, स्क्रीनशॉट देखें:
3. और फिर, क्लिक करें OK, आपको वैसा ही परिणाम मिलेगा जैसा आपको चाहिए।
एक ही छवि या चित्र को एकाधिक कार्यपत्रकों में सम्मिलित करें
कभी-कभी, आप अपनी कार्यपुस्तिका के सभी कार्यपत्रकों में एक लोगो चित्र सम्मिलित करना चाह सकते हैं, सामान्यतः, आप चित्र को एक-एक करके दूसरे पत्रक में सम्मिलित करने के लिए सम्मिलित करें फ़ंक्शन लागू कर सकते हैं। इस समय लेने वाली सुविधा को छोड़कर, निम्नलिखित वीबीए कोड आपको एक ही चित्र को सभी शीटों के विशिष्ट सेल में एक ही बार में सम्मिलित करने में मदद कर सकता है। कृपया नीचे दिए गए चरणों का पालन करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सभी कार्यपत्रकों में एक ही चित्र डालें:
Sub InsertImagetoallsheets()
'Updateby Extendoffice
Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "C:\Users\AddinTestWin10\Desktop\my images\logo.png"
If Dir(xPath) = "" Then
MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
Exit Sub
End If
For I = 1 To ActiveWorkbook.Sheets.Count
Set xRg = Sheets(I).Range("A1")
Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
Next
End Sub
नोट: उपरोक्त कोड में, C:\Users\AddinTestWin10\Desktop\my Images\logo.png चित्र का पथ और नाम है, और A1 in रेंज('A1') वह सेल है जहां आप चित्र सम्मिलित करना चाहते हैं, कृपया उन्हें अपनी आवश्यकता के अनुसार बदलें।
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और विशिष्ट चित्र तुरंत प्रत्येक वर्कशीट के सेल A1 में डाला गया है। नीचे डेमो देखें:
सेल सामग्री के पीछे छवि या चित्र डालें
वर्कशीट डेटा को अधिक सुंदर और आकर्षक बनाने के लिए, आप पृष्ठभूमि के रूप में एक छवि का उपयोग कर सकते हैं। सेल सामग्री के पीछे एक छवि डालने के लिए, यहां कुछ विधियां दी गई हैं जो आपके लिए उपयोगी हो सकती हैं।
पृष्ठभूमि सुविधा के साथ सेल सामग्री के पीछे छवि या चित्र डालें
1. वह वर्कशीट खोलें जहां आप पृष्ठभूमि छवि सम्मिलित करना चाहते हैं।
2। तब दबायें पेज लेआउट > पृष्ठभूमि, स्क्रीनशॉट देखें:
3. बाहर निकले में चित्र सम्मिलित करें विंडो, कृपया अपने कंप्यूटर, वेबसाइट या वनड्राइव से अपनी आवश्यकतानुसार एक चित्र चुनें, स्क्रीनशॉट देखें:
4. अब, छवि को नीचे दिखाए गए स्क्रीनशॉट के अनुसार पृष्ठभूमि के रूप में वर्कशीट में डाला गया है:
टिप्स: पृष्ठभूमि छवि को हटाने के लिए, बस क्लिक करें पेज लेआउट > पृष्ठभूमि हटाएँ. स्क्रीनशॉट देखें:
सेल सामग्री के पीछे पारदर्शी छवि या चित्र डालें
उपरोक्त विधि से, आप सम्मिलित पृष्ठभूमि छवि की पारदर्शिता को नहीं बदल सकते हैं, इसलिए, यदि पृष्ठभूमि छवि का रंग भारी है, तो आपके लिए वर्कशीट के डेटा को पढ़ना सुविधाजनक नहीं होगा। इस अनुभाग में, मैं कोशिकाओं के पीछे एक पारदर्शी चित्र डालने के तरीके के बारे में बात करूंगा।
1। क्लिक करें सम्मिलित करें > आकृतियाँ, और एक आयताकार आकार चुनें, स्क्रीनशॉट देखें:
2. फिर, सक्रिय वर्कशीट में जितनी बड़ी आवश्यकता हो उतनी बड़ी आकृति बनाएं।
3. आकृति बनाने के बाद, ए आरेखण उपकरण टैब रिबन में प्रदर्शित होता है, और फिर क्लिक करें का गठन > आकार की रूपरेखा > कोई बाह्यरेखा नहीं, स्क्रीनशॉट देखें:
4. और फिर, आकृति पर राइट क्लिक करें, और चुनें स्वरूप आकार संदर्भ मेनू से, स्क्रीनशॉट देखें:
5. विस्तारित में स्वरूप आकार फलक, के अंतर्गत फिल लाइन टैब, निम्नलिखित कार्य करें:
- के नीचे भरना अनुभाग चुनें चित्र या बनावट भरण विकल्प;
- क्लिक करें सम्मिलित करें से बटन चित्र स्रोत, और एक चित्र चुनें जिसे आप सम्मिलित करना चाहते हैं;
- फिर, चित्र की पारदर्शिता को अपनी आवश्यकता के अनुसार समायोजित करें पारदर्शितावाई खंड।
6. और फिर, आप देखेंगे कि चित्रों से भरी आकृति एक पृष्ठभूमि छवि की तरह दिखती है जैसा कि ऊपर स्क्रीनशॉट में दिखाया गया है।
नोट: इस प्रकार की पृष्ठभूमि छवि डालने के बाद, आपको चित्र सीमा के भीतर कोई भी पाठ दर्ज करने की अनुमति नहीं दी जाएगी।
वॉटरमार्क के रूप में सेल सामग्री के पीछे पारदर्शी छवि या चित्र डालें
उपरोक्त दोनों विधियों की अपनी-अपनी सीमाएँ हैं, पहली विधि छवि पारदर्शिता को नहीं बदल सकती है, दूसरी विधि चित्र क्षेत्र के अंदर कोशिकाओं में पाठ दर्ज करने की अनुमति नहीं देती है। इन समस्याओं को हल करने के लिए, एक्सेल के लिए कुटूलहै वॉटरमार्क डालें सुविधा आपका उपकार कर सकती है.
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:
1। क्लिक करें कुटूल > सम्मिलित करें > वॉटरमार्क डालें, स्क्रीनशॉट देखें:
2. बाहर निकले में वॉटरमार्क डालें संवाद बॉक्स में, चयन करें चित्र वॉटरमार्क, और फिर क्लिक करें चित्र का चयन करें एक छवि चुनने के लिए बटन जिसे आप सम्मिलित करना चाहते हैं, और फिर छवि स्केल निर्दिष्ट करें और वॉशआउट विकल्प की जांच करें, स्क्रीनशॉट देखें:
3। तब दबायें Ok बटन, चित्र को पृष्ठभूमि छवि के रूप में वर्कशीट में डाला गया है।
Excel में छवि या चित्र प्रारूप के रूप में कक्षों की एक श्रृंखला सम्मिलित करें
क्या आपने कभी कक्षों की एक श्रृंखला की प्रतिलिपि बनाने और उसे Excel में छवि के रूप में सम्मिलित करने का प्रयास किया है? इस अनुभाग में, मैं एक्सेल में इस कार्य से निपटने के लिए कुछ त्वरित तरीके का परिचय दूंगा।
चित्र के रूप में कॉपी करें सुविधा के साथ छवि या चित्र प्रारूप के रूप में कक्षों की एक श्रृंखला सम्मिलित करें
एक्सेल में, आप इसका उपयोग कर सकते हैं चित्र के रूप में कॉपी करें सेल की एक श्रृंखला को छवि के रूप में कॉपी करने और सम्मिलित करने का कार्य।
1. उन कक्षों की श्रेणी का चयन करें जिन्हें आप कॉपी करना चाहते हैं और छवि के रूप में सम्मिलित करना चाहते हैं।
2। तब दबायें होम > प्रतिलिपि > चित्र के रूप में कॉपी करें, स्क्रीनशॉट देखें:
3. बाहर निकले में चित्र कॉपी करें संवाद, चुनें चित्र से का गठन अनुभाग, स्क्रीनशॉट देखें:
4। तब दबायें OK बटन, अब, आपको बस दबाने की जरूरत है Ctrl + V का छवि को कार्यपुस्तिका में कहीं भी चिपकाने के लिए।
कैमरा टूल के साथ छवि या चित्र प्रारूप के रूप में कक्षों की एक श्रृंखला सम्मिलित करें
एक्सेल में, एक है कैमरा उपकरण जो आपके चयनित डेटा के लिए एक फोटो लेने और फिर उसे छवि के रूप में पेस्ट करने में आपकी सहायता कर सकता है। जब मूल डेटा बदलता है, तो कॉपी की गई छवि गतिशील रूप से बदल जाएगी।
सबसे पहले, आपको प्रदर्शित करना चाहिए कैमरा रिबन पर, और फिर इसे लगाएं।
1। क्लिक करें क्विक एक्सेस टूलबार कस्टमाइज़ करें आइकन, और फिर क्लिक करें अधिक कमांड विकल्प, स्क्रीनशॉट देखें:
2. खुले में एक्सेल विकल्प संवाद बॉक्स, कृपया निम्नलिखित कार्य करें:
- चुनते हैं सभी आदेश से से कमांड चुनें ड्रॉप डाउन;
- फिर, चयन करने के लिए स्क्रॉल करें कैमरा सूची बॉक्स से;
- और फिर, क्लिक करें इस टूल को इसमें जोड़ने के लिए बटन क्विक एक्सेस टूलबार कस्टमाइज़ करें;
- अंत में, क्लिक करें OK इस डायलॉग बॉक्स को बंद करने के लिए.
3। और यह कैमरा टूल रिबन पर प्रदर्शित किया गया है, स्क्रीनशॉट देखें:
4. फिर, उन कक्षों की श्रेणी का चयन करें जिनकी आप छवि चाहते हैं।
5. और फिर, क्लिक करें कैमरा टूल, फिर वर्कशीट पर जाएं और कहीं भी क्लिक करें, डेटा रेंज नीचे दिखाए गए डेमो के अनुसार एक छवि के रूप में डाली जाएगी:
एक उपयोगी सुविधा के साथ छवि या चित्र प्रारूप के रूप में कक्षों की एक श्रृंखला सम्मिलित करें
यदि आपके पास एक्सेल के लिए कुटूल, के साथ अपने संसाधन लाइब्रेरी सुविधा, आप चयनित डेटा को इसमें सहेज सकते हैं संसाधन लाइब्रेरी, और फिर इसे भविष्य के लिए अपनी इच्छानुसार छवि या पाठ के रूप में उपयोग करें।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:
1. उस डेटा श्रेणी का चयन करें जिसे आप छवि के रूप में सम्मिलित करना चाहते हैं।
2। तब दबायें कुटूल > पथ प्रदर्शन, स्क्रीनशॉट देखें:
3. विस्तारित में पथ प्रदर्शन फलक, क्लिक करें संसाधन लाइब्रेरी आइकन, और फिर क्लिक करें चयनित सामग्री को संसाधन लाइब्रेरी में जोड़ें आइकन, स्क्रीनशॉट देखें:
4. में नई संसाधन लाइब्रेरी प्रविष्टि संवाद बॉक्स, इस आइटम के लिए एक नाम निर्दिष्ट करें, और फिर उस समूह का चयन करें जिसे आप जोड़ना चाहते हैं। स्क्रीनशॉट देखें:
5। तब दबायें इसे जोड़ने के लिए बटन संसाधन लाइब्रेरी फलक. यदि आप इस श्रेणी को चित्र के रूप में सम्मिलित करना चाहते हैं, तो चित्र का पता लगाने के लिए बस एक सेल पर क्लिक करना होगा, और फिर सहेजे गए आइटम को ढूंढना होगा संसाधन लाइब्रेरी फलक, और क्लिक करें के रूप में डालें > चित्र (EMF) आइटम की ड्रॉप डाउन सूची से. और डेटा रेंज को एक छवि के रूप में शीट में डाला जाएगा, स्क्रीनशॉट देखें:
सेल मान के आधार पर गतिशील रूप से छवि या चित्र सम्मिलित करें
इस अनुभाग में, मैं आपको दिखाऊंगा कि सेल मान के आधार पर एक विशिष्ट छवि कैसे प्रदर्शित करें। उदाहरण के लिए, जब मैं ड्रॉप डाउन सेल से एक विशिष्ट आइटम का चयन करता हूं तो मैं संबंधित चित्र दिखाना चाहता हूं, और जब मैं दूसरा चुनता हूं, तो चित्र गतिशील रूप से नीचे दिखाए गए डेमो के अनुसार बदल जाएगा:
नामांकित श्रेणी सुविधा के साथ गतिशील रूप से सेल मान के आधार पर छवि या चित्र डालें
आम तौर पर, एक्सेल में, आप एक गतिशील नामित श्रेणी बना सकते हैं, और फिर एक्सेल में इस कार्य को हल करने के लिए लिंक किए गए चित्र का उपयोग कर सकते हैं।
1. सबसे पहले, आपको दो कॉलम बनाने चाहिए जिनमें उत्पाद के नाम और संबंधित चित्र हों, स्क्रीनशॉट देखें:
2. फिर, कृपया सेल मानों के लिए एक ड्रॉप डाउन सूची बनाएं। ड्रॉप डाउन सूची को आउटपुट करने के लिए किसी सेल पर क्लिक करें, फिर क्लिक करें जानकारी > डेटा मान्यता > डेटा मान्यता, स्क्रीनशॉट देखें:
3. बाहर निकले में डेटा मान्यता डायलॉग बॉक्स, के अंतर्गत सेटिंग टैब चुनें सूची से अनुमति देना ड्रॉप डाउन करें, और फिर ड्रॉप डाउन सूची से उन कक्षों का चयन करें जिन्हें आप बनाना चाहते हैं स्रोत टेक्स्टबॉक्स, स्क्रीनशॉट देखें:
4। क्लिक करें OK, और सेल मानों के साथ ड्रॉप डाउन सूची बनाई गई है, ड्रॉप डाउन सूची से एक आइटम का चयन करें, स्क्रीनशॉट देखें:
5। तब दबायें सूत्र > नाम परिभाषित करें, स्क्रीनशॉट देखें:
6. में नया नाम संवाद बॉक्स, कृपया निम्नलिखित कार्य करें:
- इसमें myimage नामक नाम दर्ज करें नाम पाठ बॉक्स;
- फिर इस फॉर्मूले को कॉपी और पेस्ट करें: =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) संदर्भ टेक्स्ट बॉक्स में।
नोट: उपरोक्त सूत्र में:
- शीट11!$ए$2:$बी$6: वह कार्यपत्रक और श्रेणी है जिसमें वे मान और चित्र शामिल हैं जिनका आप उपयोग करना चाहते हैं;
- शीट11!$ई$2: वर्कशीट के भीतर वह सेल है जहां आपने ड्रॉप डाउन सूची बनाई है;
- शीट11!$ए$2:$ए$6: उन कक्षों की सूची है जिनके आधार पर आपने ड्रॉप डाउन सूची बनाई है;
- परिवर्तनशील संख्या 2 वह स्तंभ संख्या है जिसमें चित्र हैं। यदि आपकी छवियां कॉलम सी में हैं, तो आपको 3 दर्ज करना चाहिए।
7. और फिर, क्लिक करें OK बटन, फिर कृपया E2 में सेल मान के आधार पर संबंधित चित्र को मूल श्रेणी से सेल F2 में कॉपी और पेस्ट करें, स्क्रीनशॉट देखें:
8. इसके बाद, कृपया सेल F2 में चित्र का चयन करें, और फिर इस सूत्र को दर्ज करें =मेरी छवि (मेरी छवि वह श्रेणी नाम है जिसे आपने चरण 6 में सूत्र पट्टी में बनाया है, स्क्रीनशॉट देखें:
9. फ़ॉर्मूला डालने के बाद दबाएँ दर्ज कुंजी, और अब, जब आप ड्रॉप डाउन सूची से एक आइटम चुनते हैं, तो उसका संबंधित चित्र तुरंत प्रदर्शित किया जाएगा। स्क्रीनशॉट देखें:
एक उपयोगी सुविधा के साथ गतिशील रूप से सेल मान के आधार पर छवि या चित्र डालें
उपरोक्त विधि हममें से अधिकांश के लिए कठिन हो सकती है, यहां, मैं एक उपयोगी सुविधा पेश करूंगा - चित्र ड्रॉप-डाउन सूची of एक्सेल के लिए कुटूल, इस उपयोगी टूल से, आप केवल कुछ क्लिक के साथ उनकी संबंधित छवियों के साथ कई ड्रॉप डाउन सूचियां बना सकते हैं।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नलिखित चरणों का पालन करें:
1. सबसे पहले, आपको दो कॉलम बनाने चाहिए जिनमें आपकी वर्कशीट में उत्पाद के नाम और संबंधित छवियां हों।
2. और फिर, क्लिक करें कुटूल > ड्रॉप डाउन सूची > चित्र ड्रॉप-डाउन सूची, स्क्रीनशॉट देखें:
3. में चित्र ड्रॉप-डाउन सूची संवाद बॉक्स, यदि आपने सेल मानों और छवियों के कॉलम बनाए हैं, तो कृपया चरण 1 को अनदेखा करें, फिर, मूल डेटा और छवि श्रेणी और आउटपुट रेंज का चयन करें, स्क्रीनशॉट देखें:
4. और फिर, क्लिक करें Ok बटन, छवियों के साथ ड्रॉप डाउन सूचियां चयनित सेल में बनाई गई हैं, और ड्रॉप डाउन सेल से किसी आइटम का चयन करते समय, इसकी संबंधित तस्वीर एक ही बार में प्रदर्शित की जाएगी, नीचे डेमो देखें:
Excel फ़ाइल से सभी छवियों या चित्रों को निर्यात करें या सहेजें
यदि आपकी कार्यपुस्तिका में कई छवियां हैं, और अब, आप एक्सेल फ़ाइल से सभी छवियों को एक फ़ोल्डर में निकालना और सहेजना चाहते हैं। आप एक्सेल में इस कार्य को कैसे हल कर सकते हैं?
इस रूप में सहेजें सुविधा के साथ एक्सेल से सभी छवियों या चित्रों को निर्यात करें या सहेजें
सामान्यतः, आप इसका उपयोग कर सकते हैं इस रूप में सहेजें कार्यपुस्तिका से सभी छवियों को सहेजने की सुविधा, कृपया इस प्रकार करें:
1। क्लिक करें पट्टिका > इस रूप में सहेजें, में इस रूप में सहेजें विंडो, निर्यात की गई फ़ाइलों को रखने के लिए एक फ़ोल्डर निर्दिष्ट करें, और फिर चुनें वेब पेज(*.htm;*.html) से के रूप में सहेजें ड्रॉप डाउन सूची टाइप करें, स्क्रीनशॉट देखें:
2। और फिर क्लिक करें सहेजें बटन, विशिष्ट फ़ोल्डर पर जाएं, आपको दो फ़ाइलें दिखाई देंगी, एक HTML प्रारूप फ़ाइल है, और दूसरा एक फ़ोल्डर है जिसमें कार्यपुस्तिका से चित्र, चार्ट या अन्य ऑब्जेक्ट शामिल हैं। स्क्रीनशॉट देखें:
3. फिर आप आवश्यकतानुसार केवल छवियों को दूसरे फ़ोल्डर में खींच सकते हैं।
नोट: इसका उपयोग करके इस रूप में सहेजें सुविधा, आपको प्रत्येक चित्र दो बार मिलेगा, एक छोटा है, दूसरा बड़ा है, इसलिए आप आवश्यकतानुसार उच्च रिज़ॉल्यूशन वाली छवियां सहेज सकते हैं।
फ़ाइल एक्सटेंशन को बदलने के साथ एक्सेल से सभी छवियों या चित्रों को निर्यात या सहेजें
एक्सेल फ़ाइल से सभी छवियों को सहेजने के लिए, आप फ़ाइल एक्सटेंशन को RAR में भी बदल सकते हैं। कृपया इस प्रकार करें:
1. फ़ाइल एक्सटेंशन बदलें XLSX सेवा मेरे RAR जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है:
2. फिर, फ़ाइल को अनज़िप करें, और आपको फ़ोल्डर में 3 फ़ोल्डर और 1 फ़ाइल दिखाई देगी, स्क्रीनशॉट देखें:
3. फिर, खोलने के लिए क्लिक करें xl फ़ोल्डर, और फिर खोलें मीडिया फ़ोल्डर, आप देखेंगे कि सभी छवियाँ डुप्लिकेट के बिना यहां संग्रहीत हैं, स्क्रीनशॉट देखें:
एक शक्तिशाली सुविधा के साथ एक्सेल से सभी छवियों या चित्रों को निर्यात करें या सहेजें
यदि आपके पास एक्सेल के लिए कुटूल, के साथ अपने निर्यात ग्राफिक्स सुविधा, आप कुछ विशिष्ट वस्तुओं, जैसे चित्र, चार्ट, आकृतियों को अपनी आवश्यकता के अनुसार छवि प्रारूप में तुरंत निर्यात कर सकते हैं।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नलिखित चरणों का पालन करें:
1। क्लिक करें कुटूल्स प्लस > आयात निर्यात > निर्यात ग्राफिक्स, स्क्रीनशॉट देखें:
2. में निर्यात ग्राफिक्स संवाद बॉक्स में, निम्नलिखित कार्य करें:
- चुनें तस्वीरें से विकल्प प्रकार ड्रॉप डाउन सूची;
- अपने निर्यातित चित्रों को सहेजने के लिए एक फ़ोल्डर निर्दिष्ट करें;
- फिर ड्रॉप डाउन सूची पर क्लिक करें निर्यात प्रारूप अपने चित्रों के लिए एक प्रारूप चुनने के लिए।
3. अंत में क्लिक करें Ok बटन, वर्तमान कार्यपुस्तिका की सभी छवियां आपके द्वारा निर्दिष्ट फ़ोल्डर में सहेजी गई हैं, स्क्रीनशॉट देखें:
Excel में कक्षों की सूची के आधार पर किसी फ़ोल्डर में छवि नामों का नाम बदलें
यदि आपके पास किसी फ़ोल्डर में बहुत सारी तस्वीरें हैं, और अब, आप उन सभी छवियों का नाम बदलना चाहते हैं, तो आप एक्सेल में आसान तरीके से इस काम को कैसे हल कर सकते हैं?
एक्सेल में, सबसे पहले, आपको सभी पुराने छवि नामों को एक कॉलम में सूचीबद्ध करना चाहिए, फिर नए नाम टाइप करना चाहिए, अंत में, पुराने नामों को तुरंत नए नामों से बदलने के लिए एक वीबीए कोड लागू करना चाहिए। कृपया नीचे दिए गए चरणों का पालन करें:
1. कृपया सभी छवि नामों को कक्षों की सूची में सूचीबद्ध करें, या आप सभी छवि नामों को एक-एक करके मैन्युअल रूप से टाइप किए बिना किसी विशिष्ट फ़ोल्डर में सूचीबद्ध करने के लिए नीचे दिए गए कोड को लागू कर सकते हैं।
2. बरक़रार रखना ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की।
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की.
वीबीए कोड: एक फ़ोल्डर से सभी छवि नामों को सूचीबद्ध करें
Sub MainList()
'Updateby Extendoffice
On Error Resume Next
Set xRg = Application.InputBox("Please select a cell to put the filenames:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1)
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xRg, xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xRg As Range, ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = 1
For Each xFile In xFolder.Files
xRg.Formula = xFile.Name
Set xRg = xRg.Offset(rowIndex)
rowIndex = 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xRg, xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स पॉप आउट हो जाता है, कृपया छवि नामों को आउटपुट करने के लिए एक सेल पर क्लिक करें, स्क्रीनशॉट देखें:
5। तब दबायें OK, एक और ब्राउज संवाद पॉप आउट हो जाएगा, कृपया उस फ़ोल्डर का चयन करें जिसमें वे चित्र हैं जिनमें आप सभी छवि नामों को सूचीबद्ध करना चाहते हैं, स्क्रीनशॉट देखें:
6। क्लिक करें OK, विशिष्ट फ़ोल्डर में सभी छवि नाम कोशिकाओं में सूचीबद्ध किए गए हैं, स्क्रीनशॉट देखें:
7. फिर, नीचे दिखाए गए स्क्रीनशॉट के अनुसार दूसरे कॉलम में आवश्यक नए नाम टाइप करें:
8. और फिर, आप छवियों का नाम बदलने के लिए नीचे दिए गए कोड को लागू कर सकते हैं, दबाते रहें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की।
9। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की.
वीबीए कोड: एक फ़ोल्डर में एकाधिक फ़ाइलों का नाम बदलें
Sub RenameFiles()
'Updateby Extendoffice
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Do Until xFile = ""
xRow = 0
On Error Resume Next
xRow = Application.Match(xFile, Range("A:A"), 0)
If xRow > 0 Then
Name xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Value
End If
xFile = Dir
Loop
End If
End With
End Sub
नोट: उपरोक्त कोड में, एक: एक उस पुरानी छवि नाम सूची को इंगित करता है जिसका आप नाम बदलना चाहते हैं, और B इसमें नए छवि नाम शामिल हैं जिनका आप उपयोग करना चाहते हैं, आप उन्हें अपनी आवश्यकता के अनुसार बदल सकते हैं।
10। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और पॉप आउट में ब्राउज विंडो, उस फ़ोल्डर का चयन करें जिसमें वह छवि है जिसका आप नाम बदलना चाहते हैं, स्क्रीनशॉट देखें:
11. और फिर, क्लिक करें OK बटन, सभी छवि नामों को नए नामों से बदल दिया गया है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है:
इस पर क्लिक करने पर छवि को बड़ा या छोटा करें
मान लीजिए, आपने वर्कशीट में एक छोटी छवि डाली है, अब, आप उस पर क्लिक करते समय छवि को बड़ा करना चाहते हैं, और नीचे दिखाए गए डेमो के अनुसार दोबारा क्लिक करने पर इसे छोटा करना चाहते हैं। आप एक्सेल में इस कार्य को कैसे हल कर सकते हैं?
छवि पर क्लिक करते समय उसका आकार बड़ा या छोटा करने के लिए, निम्नलिखित कोड आपकी मदद कर सकता है। कृपया नीचे दिए गए चरणों का पालन करें:
1. छवि पर राइट क्लिक करें, और चुनें मैक्रो को असाइन करें, स्क्रीनशॉट देखें:
2. फिर, बाहर निकला मैक्रो को असाइन करें संवाद बॉक्स में, क्लिक करें नया बटन, स्क्रीनशॉट देखें:
3. में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया नीचे दिए गए कोड को कॉपी करें और बीच में पेस्ट करें उप और अंत उप कोड. स्क्रीनशॉट देखें:
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height
If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End With
4। तब दबाएं ऑल्ट + क्यू बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। अब, जब आप चित्र पर क्लिक करेंगे, तो यह आपके द्वारा निर्दिष्ट आकार में बड़ा हो जाएगा, और इसे फिर से क्लिक करने पर मूल आकार में सिकुड़ जाएगा जैसा कि नीचे दिए गए डेमो में दिखाया गया है:
वर्कशीट को स्क्रॉल करते समय हमेशा एक चित्र फ़्लोट करें
कभी-कभी, जब आप वर्कशीट को ऊपर या नीचे स्क्रॉल करते हैं तब भी आप वर्कशीट स्क्रीन पर एक चित्र फ़्लोट करना चाह सकते हैं, ताकि आप हर समय चित्र देख सकें। इस अनुभाग में, मैं एक्सेल में इस काम से निपटने के लिए आपके लिए एक त्वरित ट्रिक पेश करूंगा। कृपया निम्नलिखित चरणों का पालन करें:
1. सबसे पहले, वह चित्र डालें जिसे आप उपयोग करना चाहते हैं।
2. फिर, शीट टैब पर राइट क्लिक करें जिसमें वह चित्र है जिसे आप हमेशा दृश्यमान रखना चाहते हैं, और फिर चुनें कोड देखें संदर्भ मेनू से. खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, नीचे दिए गए कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
वीबीए कोड: वर्कशीट में हमेशा एक चित्र फ़्लोट करें
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
If Target.Cells.Count > 1 Then Exit Sub
With ActiveSheet.Shapes("Picture1")
.Top = ActiveWindow.VisibleRange.Top + 5
.Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
End With
Application.ScreenUpdating = False
End Sub
नोट: इस कोड में, चित्र 1 यह वह छवि नाम है जिसे आपने डाला है, कृपया इसे अपनी आवश्यकता के अनुसार बदलें।
3. फिर, कोड विंडो को सहेजें और बंद करें, अब, वर्कशीट को स्क्रॉल करते समय और सेल पर क्लिक करते समय, चित्र हमेशा वर्कशीट के ऊपरी दाएं कोने पर रखा जाएगा। स्क्रीनशॉट देखें:
सक्रिय शीट/कोशिकाओं की श्रेणी से छवियाँ या चित्र हटाएँ
क्या आपके पास किसी कार्यपत्रक, कक्षों की श्रेणी या वर्तमान कार्यपुस्तिका से सभी छवियों को हटाने का कोई त्वरित तरीका है? इस अनुभाग में, मैं एक्सेल में इस कार्य को हल करने के लिए कुछ तरीकों का परिचय दूंगा।
VBA कोड के साथ सक्रिय शीट से छवियाँ या चित्र हटाएँ
मौजूदा वर्कशीट से तस्वीरें हटाने के लिए, नीचे दिया गया VBA कोड आपकी मदद कर सकता है, कृपया ऐसा करें:
1. उस वर्कशीट को सक्रिय करें जिसमें वे छवियां हैं जिन्हें आप हटाना चाहते हैं।
2. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: वर्तमान वर्कशीट से सभी चित्र हटाएं
Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub
4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और सक्रिय वर्कशीट के सभी चित्र एक ही बार में हटा दिए जाते हैं।
VBA कोड वाले कक्षों की श्रेणी से छवियाँ या चित्र हटाएँ
यदि आपको केवल सेल की एक श्रृंखला से छवियों को हटाने की आवश्यकता है, तो यहां एक और सरल कोड आपकी मदद कर सकता है।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की।
VBA कोड: कक्षों की श्रेणी से चित्र हटाएँ
Sub DeletePic()
'Updateby Extendoffice
Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Application.ScreenUpdating = False
Set xRg = Range("B4:C6")
For Each xPic In ActiveSheet.Pictures
Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
Next
Application.ScreenUpdating = True
End Sub
नोट: उपरोक्त कोड में, बी4:सी6 वह सीमा है जिससे आप चित्र हटाना चाहते हैं।
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और चयनित श्रेणी में चित्र एक ही बार में हटा दिए जाएंगे, स्क्रीनशॉट देखें:
सक्रिय शीट, चयनित शीट, सभी शीट से छवियों या चित्रों को एक आसान सुविधा के साथ हटाएं
यदि आपके पास एक्सेल के लिए कुटूल, के साथ अपने चित्र एवं वस्तुएँ हटाएँ सुविधा, आप किसी कार्यपत्रक, कुछ चयनित पत्रक या संपूर्ण कार्यपुस्तिका से छवियों को शीघ्रता से हटा सकते हैं।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नलिखित चरणों का पालन करें:
1। क्लिक करें कुटूल > मिटाना > चित्र एवं वस्तुएँ हटाएँ, स्क्रीनशॉट देखें:
2. खुले में चित्र एवं वस्तुएँ हटाएँ संवाद बॉक्स, जाँचें तस्वीरें से मिटाना अनुभाग, और फिर वह दायरा निर्दिष्ट करें जिसके नीचे से आप चित्र हटाना चाहते हैं यहां देखो अनुभाग, स्क्रीनशॉट देखें:
3। तब दबायें Ok बटन, और आपके निर्दिष्ट अनुसार सभी चित्र वर्कशीट, चयनित वर्कशीट या संपूर्ण वर्कबुक से हटा दिए जाएंगे।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल आपकी अधिकांश समस्याओं का समाधान करता है, और आपकी उत्पादकता को 80% तक बढ़ाता है
- सुपर फॉर्मूला बार (पाठ और सूत्र की अनेक पंक्तियों को आसानी से संपादित करें); लेआउट पढ़ना (बड़ी संख्या में सेल को आसानी से पढ़ें और संपादित करें); फ़िल्टर की गई रेंज में चिपकाएँ...
- कक्षों/पंक्तियों/स्तंभों को मर्ज करें और डेटा रखना; विभाजित कोशिकाओं की सामग्री; डुप्लिकेट पंक्तियों और योग/औसत को संयोजित करें... डुप्लिकेट सेल रोकें; रेंज की तुलना करें...
- डुप्लिकेट या अद्वितीय का चयन करें पंक्तियाँ; रिक्त पंक्तियाँ चुनें (सभी कोशिकाएँ खाली हैं); सुपर फाइंड और फ़ज़ी फाइंड कई कार्यपुस्तिकाओं में; यादृच्छिक चयन...
- सटीक प्रति सूत्र संदर्भ बदले बिना एकाधिक कक्ष; स्वतः संदर्भ बनाएँ एकाधिक शीट्स के लिए; बुलेट डालें, चेक बॉक्स और बहुत कुछ...
- पसंदीदा और त्वरित रूप से सम्मिलित सूत्र, रेंज, चार्ट और चित्र; कोशिकाओं को एन्क्रिप्ट करें पासवर्ड के साथ; मेलिंग सूची बनाएं और ईमेल भेजें...
- पाठ निकालें, टेक्स्ट जोड़ें, स्थिति के अनुसार हटाएँ, अंतरिक्ष निकालें; पेजिंग सबटोटल बनाएं और प्रिंट करें; सेल सामग्री और टिप्पणियों के बीच कनवर्ट करें...
- सुपर फ़िल्टर (फ़िल्टर योजनाओं को अन्य शीटों पर सहेजें और लागू करें); उन्नत सॉर्ट महीने/सप्ताह/दिन, आवृत्ति और अधिक के अनुसार; विशेष फ़िल्टर बोल्ड, इटैलिक द्वारा...
- वर्कबुक और वर्कशीट को मिलाएं; प्रमुख स्तंभों के आधार पर तालिकाएँ मर्ज करें; डेटा को एकाधिक शीट में विभाजित करें; बैच कनवर्ट xls, xlsx और पीडीएफ...
- पिवोट टेबल ग्रुपिंग द्वारा सप्ताह संख्या, सप्ताह का दिन और बहुत कुछ... अनलॉक, लॉक किए गए सेल दिखाएँ विभिन्न रंगों से; उन कक्षों को हाइलाइट करें जिनमें सूत्र/नाम हो...
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!