Excel में टिप्पणियों से छवियाँ कैसे निकालें?
एक्सेल में, आप जितनी आसानी से हो सके टिप्पणी में छवि सम्मिलित कर सकते हैं, लेकिन, क्या आपने कभी छवियों को टिप्पणी बॉक्स से कोशिकाओं में या किसी विशिष्ट फ़ोल्डर में निकालने पर विचार किया है? इस लेख में, मैं टिप्पणियों से छवियां निकालने के तरीके के बारे में बात करूंगा।
टिप्पणियों से छवियाँ निकालें और सहेजें फ़ंक्शन वाले फ़ोल्डर में सहेजें
टिप्पणियों से छवियाँ VBA कोड वाले कक्षों में निकालें
टिप्पणियों से छवियाँ निकालें और सहेजें फ़ंक्शन वाले फ़ोल्डर में सहेजें
यदि आप टिप्पणियों से छवियों को एक फ़ोल्डर में निकालना और सहेजना चाहते हैं, तो कृपया निम्नानुसार करें:
1. उस शीट की प्रतिलिपि बनाएँ जिसमें उन छवियों के साथ टिप्पणियाँ हैं जिन्हें आप एक नई रिक्त कार्यपुस्तिका में सहेजना चाहते हैं।
2। और फिर क्लिक करें पट्टिका > इस रूप में सहेजें इस नई कार्यपुस्तिका को इस रूप में सहेजने के लिए वेब पेज किसी विशिष्ट फ़ोल्डर में प्रारूपित करें, स्क्रीनशॉट देखें:
3। तब दबायें सहेजें फ़ाइल को सहेजने के लिए बटन, फिर सहेजी गई छवियों को देखने के लिए विशिष्ट फ़ोल्डर पर जाएं, फ़ोल्डर में दो फ़ाइलें उत्पन्न होती हैं, एक html फ़ाइल है, और दूसरा एक फ़ोल्डर है जिसमें सभी छवियां और अन्य फ़ाइलें शामिल हैं, स्क्रीनशॉट देखें:
टिप्पणियों से छवियाँ VBA कोड वाले कक्षों में निकालें
यदि आप नीचे दिखाए गए स्क्रीनशॉट के अनुसार टिप्पणियों से छवियों को सेल में निकालना चाहते हैं, तो मैं आपके लिए एक वीबीए कोड बना सकता हूं, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।
वीबीए कोड: टिप्पणियों से छवियों को कक्षों में निकालें:
Sub CommentPictures()
'Updateby Extendoffcie
Dim cmt As Comment
Dim xRg As Range
Dim visBool As Boolean
Dim cmtTxt As String
Dim jpgPath As String
Dim shpHeight As Integer, shpWidth As Integer
Application.ScreenUpdating = False
For Each cmt In ActiveSheet.Comments
With cmt
cmtTxt = .Text
shpHeight = .Shape.Height
shpWidth = .Shape.Width
.Text Text:="" & Chr(10) & ""
visBool = .Visible
.Visible = True
On Error Resume Next
Set xRg = .Parent.Offset(0, 1)
.Shape.CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
xRg.PasteSpecial
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Width = xRg.Width
Selection.Height = xRg.Height
.Visible = visBool
.Text Text:=cmtTxt
End With
Next cmt
Application.ScreenUpdating = True
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और वर्तमान वर्कशीट में टिप्पणियों की सभी छवियों को अगले कॉलम कोशिकाओं में निकाला गया है, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!