Excel में छवि पर क्लिक करने पर उसे बड़ा कैसे करें?
मान लीजिए कि आपने एक कॉलम में चित्रों की एक सूची डाली है और चित्र के आकार को सेल आकार के साथ मिलान किया है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। चूंकि सम्मिलित चित्र छोटा दिखता है, इसलिए आपको कुछ उद्देश्यों के लिए इसे बड़ा करने की आवश्यकता हो सकती है। यह आलेख आपको एक्सेल में किसी चित्र पर क्लिक करने पर उसे बड़ा करने और दूसरे क्लिक पर मूल आकार में वापस आने की विधि दिखाएगा।
वीबीए कोड के साथ छवि पर क्लिक करने पर उसे बड़ा करें
वीबीए कोड के साथ छवि पर क्लिक करने पर उसे बड़ा करें
निम्नलिखित वीबीए कोड एक्सेल में किसी छवि पर क्लिक करने पर उसे बड़ा करने में आपकी मदद कर सकता है। कृपया निम्नानुसार करें.
1. जिस चित्र को आपको बड़ा करना है उस पर राइट क्लिक करें, फिर क्लिक करें मैक्रो को असाइन करें संदर्भ मेनू से. स्क्रीनशॉट देखें:
2। में मैक्रो को असाइन करें संवाद बॉक्स, कृपया क्लिक करें नया बटन.
3. पॉप अप में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें उप और अंत उप कोड. स्क्रीनशॉट देखें:
वीबीए कोड: एक्सेल में छवि पर क्लिक करके उसे बड़ा करें
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
नोट: कोड में, आप चित्र के बड़े आकार को कोड big = 3 में निर्दिष्ट कर सकते हैं।
4. फिर दबाएं ऑल्ट + Q को बंद करने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
अब से, जब चित्र पर क्लिक करें, तो यह आपके द्वारा निर्दिष्ट आकार में बड़ा हो जाएगा, और फिर से क्लिक करने पर यह मूल आकार में वापस आ जाएगा जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है।
संबंधित लेख:
- एक्सेल में सेल में या उसके अंदर चित्र/इमेज को कैसे लॉक करें?
- एक्सेल में सेल वैल्यू के आधार पर सेल में गतिशील रूप से छवि या चित्र कैसे डालें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!