एक ही छवि को एकाधिक कार्यपत्रकों में शीघ्रता से कैसे सम्मिलित करें?
आम तौर पर, हम एक्सेल में इन्सर्ट फ़ंक्शन का उपयोग करके किसी वर्कशीट में तुरंत एक तस्वीर डाल सकते हैं, लेकिन, क्या आपने कभी अपनी वर्कबुक की सभी वर्कशीट में एक ही तस्वीर डालने की कोशिश की है? इस लेख में, मैं इस कार्य को हल करने के लिए आपके लिए एक उपयोगी विधि प्रस्तुत करूंगा।
VBA कोड के साथ कार्यपुस्तिका के सभी कार्यपत्रकों में एक ही छवि डालें
VBA कोड के साथ कार्यपुस्तिका के सभी कार्यपत्रकों में एक ही छवि डालें
निम्नलिखित वीबीए कोड आपको सभी कार्यपत्रकों में आसानी से एक छवि सम्मिलित करने में मदद कर सकता है, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सभी कार्यपत्रकों में एक ही चित्र डालें:
Sub InsertLogo()
Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "C:\Users\DT168\Desktop\pic\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\DT168\Desktop\pic\logo.png आपके चित्र का पथ और नाम है, और A1 in Range("A1") यह वह सेल है जहां आप चित्र सम्मिलित करना चाहते हैं, कृपया उन्हें अपने अनुसार बदलें।
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और फिर विशिष्ट चित्र को एक ही बार में सभी वर्कशीट के प्रत्येक सेल A1 में डाला गया है। स्क्रीनशॉट देखें:
नोट: सम्मिलित चित्र को सेल आकार में फिट करने के लिए समायोजित किया जाएगा।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!