Excel से सभी छवियों को एक साथ कैसे निर्यात करें?
मान लीजिए कि आपकी कार्यपुस्तिका में बहुत सारे चित्र हैं और आप उन्हें एक समय में एक विशिष्ट फ़ोल्डर में सहेजना चाहते हैं, तो आमतौर पर, आप सहेजने के लिए चित्रों को एक-एक करके मैन्युअल रूप से कॉपी और पेस्ट कर सकते हैं, लेकिन उन्हें कॉपी और पेस्ट करने में समय लगता है बार-बार इस तरह. यहां, मैं आपको इस काम को हल करने के लिए कुछ युक्तियां पेश करूंगा।
इस रूप में सहेजें फ़ंक्शन के साथ एक्सेल से सभी छवियों को एक साथ निर्यात करें
एक्सेल बिल्ट-इन के साथ इस रूप में सहेजें फ़ंक्शन, आप किसी कार्यपुस्तिका को इस रूप में सहेज सकते हैं वेब पेज चार्ट, आकृतियों और अन्य वस्तुओं सहित सभी चित्रों को एक फ़ोल्डर में सहेजने के लिए। कृपया निम्नानुसार करें.
1. उन चित्रों वाली कार्यपुस्तिका खोलें जिन्हें आप सहेजना चाहते हैं। क्लिक पट्टिका > इस रूप में सहेजें > ब्राउज़।
2। में इस रूप में सहेजें संवाद बॉक्स, आपको यह करना होगा:
3. पॉप अप में माइक्रोसॉफ्ट एक्सेल संवाद बॉक्स में, क्लिक करें हाँ बटन.
4. वह फ़ोल्डर खोलें जहां निर्यात की गई फ़ाइलें सहेजी गई हैं और आप अंदर सूचीबद्ध एक फ़ोल्डर और एक HTML प्रारूप फ़ाइल देख सकते हैं। कार्यपुस्तिका में चार्ट, आकृतियाँ या ऑब्जेक्ट सहित सभी चित्र इस फ़ोल्डर में सहेजे जाते हैं।
5. आप अपनी ज़रूरत की तस्वीरें फ़ोल्डर में रख सकते हैं और जिन तस्वीरों की आपको ज़रूरत नहीं है उन्हें हटा सकते हैं
एक अद्भुत टूल के साथ एक्सेल से सभी छवियों को एक साथ आसानी से निर्यात करें
उपरोक्त विधि कार्यपुस्तिका से सभी ऑब्जेक्ट निकाल देगी, हो सकता है, उनमें से कुछ की आपको आवश्यकता न हो। यदि आपके पास है एक्सेल के लिए कुटूल एक्सेल में स्थापित, इसकी निर्यात ग्राफिक्स यह सुविधा आपको केवल उन्हीं चित्रों को सहेजने में मदद कर सकती है जिनकी आपको आवश्यकता है।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:
1। क्लिक करें कुटूल्स प्लस > आयात निर्यात > निर्यात ग्राफिक्स:
2। में निर्यात ग्राफिक्स संवाद बॉक्स, कृपया निम्नानुसार कॉन्फ़िगर करें:
3. फिर एक डायलॉग बॉक्स पॉप अप होता है जो आपको बताता है कि कितनी तस्वीरें सफलतापूर्वक निर्यात की गई हैं, क्लिक करें OK बटन.
अब आप गंतव्य फ़ोल्डर में जा सकते हैं और निर्यात की गई छवियों की जांच कर सकते हैं।
क्लिक करें निर्यात ग्राफिक्स इस सुविधा के बारे में अधिक जानने के लिए।
आवेदन करने से पहले एक्सेल के लिए कुटूल, कृपया सबसे पहले इसे डाउनलोड करें और इंस्टॉल करें.
छवियाँ निर्यात करें और आसन्न सेल मानों के साथ उनका नाम बदलें
जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, दो कॉलम हैं, एक में फलों के नामों की सूची है और दूसरे में फलों के संबंधित चित्र हैं। इन छवियों को निर्यात करने और स्वचालित रूप से उन्हें संबंधित फलों के नामों के साथ नाम देने के लिए, आप इस अनुभाग में वीबीए कोड आज़मा सकते हैं।
1. वर्कशीट में जहां आप चित्र निर्यात करना चाहते हैं, दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल। और फिर निम्नलिखित VBA को मॉड्यूल विंडो में कॉपी करें।
वीबीए कोड: चित्रों को एक कॉलम में निर्यात करें और उन्हें स्वचालित रूप से नाम दें
Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
Dim xStrPath As String
Dim xStrImgName As String
Dim xImg As Shape
Dim xObjChar As ChartObject
Dim xFD As FileDialog
Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
If xFD.Show = -1 Then
xStrPath = xFD.SelectedItems.Item(1) & "\"
Else
Exit Sub
End If
On Error Resume Next
For Each xImg In ActiveSheet.Shapes
If xImg.TopLeftCell.Column = 2 Then
xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
If xStrImgName <> "" Then
xImg.Select
Selection.Copy
Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
With xObjChar
.Border.LineStyle = xlLineStyleNone
.Activate
ActiveChart.Paste
.Chart.Export xStrPath & xStrImgName & ".png"
.Delete
End With
End If
End If
Next
End Sub
टिप्पणियाँ:
3। दबाएं F5 कोड चलाने की कुंजी. खुलने वाली विंडो में, चित्रों को सहेजने के लिए एक फ़ोल्डर चुनें और फिर क्लिक करें ठीक है.
फिर एक निर्दिष्ट कॉलम में सभी चित्र निर्यात किए जाते हैं और स्वचालित रूप से आपके द्वारा निर्दिष्ट आसन्न सेल मानों के साथ नामित किए जाते हैं।
संबंधित लेख:
Excel में ग्राफ़िक्स में चार्ट कैसे निर्यात करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!