एक्सेल सेल में किसी चित्र को केन्द्रित कैसे करें?
यह आलेख आपको एक्सेल वर्कशीट में चित्रों को कोशिकाओं के केंद्र में ले जाने की एक विधि दिखाएगा जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।
वीबीए कोड के साथ चित्र को सेल के केंद्र में ले जाएं
वीबीए कोड के साथ चित्र को सेल के केंद्र में ले जाएं.
एक्सेल में वर्कशीट में चित्रों को कोशिकाओं के केंद्र में ले जाने के लिए कृपया निम्नानुसार कार्य करें।
1. वर्कशीट खोलें जिसमें वे चित्र हैं जिन्हें आपको कक्षों में केन्द्रित करना है, फिर दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया क्लिक करें सम्मिलित करें > मॉड्यूल. फिर VBA कोड को कॉपी करके कोड विंडो में पेस्ट करें।
वीबीए कोड: वर्कशीट में चित्रों को कोशिकाओं के केंद्र में ले जाएं
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
नोट्स:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3। दबाएं F5 कोड चलाने की कुंजी.
फिर सभी निर्दिष्ट चित्रों को नीचे स्क्रीनशॉट में दिखाए अनुसार तुरंत कुछ कोशिकाओं के केंद्र में ले जाया जाएगा।
संबंधित आलेख:
- एक्सेल में सेलों के साथ सभी चित्रों को स्थानांतरित करने और आकार देने के लिए स्वचालित रूप से कैसे बदलें?
- एक्सेल में किसी सेल में चित्र है या नहीं इसकी जांच कैसे करें?
- एक्सेल में सेल वैल्यू के आधार पर सेल में गतिशील रूप से छवि या चित्र कैसे डालें?
- Excel में छवि पर क्लिक करने पर उसे बड़ा कैसे करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!