मुख्य सामग्री पर जाएं

टेक्स्ट बॉक्स में चित्र कैसे डालें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2021-01-08

डिफ़ॉल्ट रूप से, हम इन्सर्ट फ़ंक्शन का उपयोग करके वर्कशीट में एक चित्र या छवि को जल्दी से सम्मिलित कर सकते हैं, लेकिन, यह सुविधा टेक्स्टबॉक्स में एक चित्र सम्मिलित करने के लिए लागू नहीं होती है। इस आलेख के साथ, मैं आपको आवश्यकतानुसार टेक्स्टबॉक्स में एक चित्र सम्मिलित करने में मदद कर सकता हूँ।

VBA कोड वाले टेक्स्टबॉक्स में एक चित्र या छवि डालें

तीर नीला दायां बुलबुला VBA कोड वाले टेक्स्टबॉक्स में एक चित्र या छवि डालें

टेक्स्टबॉक्स में एक चित्र सम्मिलित करने के लिए, निम्नलिखित VBA कोड आपकी सहायता कर सकता है, कृपया इस प्रकार करें:

1. क्लिक करके टेक्स्टबॉक्स डालें सम्मिलित करें > पाठ बॉक्स, और फिर एक टेक्स्टबॉक्स बनाएं, स्क्रीनशॉट देखें:

दस्तावेज़ टेक्स्टबॉक्स 1 में छवि डालें

2. फिर दबा कर रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: टेक्स्ट बॉक्स में एक चित्र डालें:

Sub ShapePicture()
    Dim xSh As Shape
    Dim xPic As IPictureDisp
    Dim xFileName As String
    xFileName = "C:\Users\DT168\Desktop\pictures\Apple.JPG"
    Set xPic = LoadPicture(xFileName)
    Set xSh = Sheets("Sheet4").Shapes(1)
    xSh.Height = xPic.Height / xPic.Width * xSh.Width
    Set xPic = LoadPicture("")
    Set xPic = Nothing
    xSh.Fill.UserPicture xFileName
End Sub

नोट: उपरोक्त कोड में, Sheet4 वह शीट नाम है जिसमें वह टेक्स्ट बॉक्स है जिसमें आप चित्र सम्मिलित करना चाहते हैं, और C:\Users\DT168\Desktop\pictures\Apple.JPG जिस चित्र को आप सम्मिलित करना चाहते हैं उसका चित्र पथ है, आपको उन्हें अपनी आवश्यकता के अनुसार बदलना चाहिए।

4. और फिर दबाएं F5 इस कोड को चलाने के लिए कुंजी, विशिष्ट छवि को तुरंत टेक्स्ट बॉक्स में डाला जाएगा, और आप आवश्यकतानुसार टेक्स्टबॉक्स को संपादित कर सकते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ टेक्स्टबॉक्स 2 में छवि डालें

संबंधित आलेख:

टेक्स्टबॉक्स में डिफ़ॉल्ट मान कैसे सेट करें?

टेक्स्ट बॉक्स में केवल संख्याओं को इनपुट करने की अनुमति कैसे दें?

टेक्स्टबॉक्स में वर्तनी जांच कैसे लागू करें?

Excel में मान के आधार पर टेक्स्टबॉक्स का रंग कैसे बदलें?

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (6)
No ratings yet. Be the first to rate!
Harvey Hecker
Harvey Hecker
This comment was minimized by the moderator on the site
Yes, I changed both. I did not get any errors when I ran the macro using the F5 key.

I tried to place the macro in different folders of the workbook, worksheet, module,class module but the results were the same: no picture in the text box.


Thanks for writing back. The last name is Hecker, BTW....typo
Reply
0
0
harvey heckef
harvey heckef
This comment was minimized by the moderator on the site
Tried this macro on Excel 365. It did not work. Did not receive error message. Macro ran to completion. Picture is not shown in textbox.
Reply
0
0
skyyang
skyyang     harvey heckef
This comment was minimized by the moderator on the site
Hello，harvey，
Do you change the sheet name and picture path to your own in the code? Please chek it, thank you!

Note: In the above code, Sheet4 is the sheet name which contains the text box you want to insert picture, and C:\Users\DT168\Desktop\pictures\Apple.JPG is the picture path of the picture you want to insert, you should change them to your need.
Reply
Report
0
0
Meg
Meg     skyyang
This comment was minimized by the moderator on the site
Hi Sky
I have changed the sheet name and the path of the picture. But it still doesn't work.

I got bugs here in "xSh.Fill.UserPicture xFileName"

Many thanks.
Meg
Reply
0
0
skyyang
skyyang     Meg
This comment was minimized by the moderator on the site
Hello, Meg,
The code in this article may work well for some simple name picture.
If your picture name is complex, you should apply the below code:
Note: Please change the Text Box 1 to your own name of the textbox.
Sub InsertPicture()
    Dim sPicture As String, pic As Picture
    Dim shp As Shape, shps As ShapeRange  
    sPicture = Application.GetOpenFilename("Pictures (*.gif; *.jpg; *.bmp; *.tif;*.png), *.gif; *.jpg; *.bmp; *.tif; *.png", _
        , "Select Picture to Import") 
    If sPicture = "False" Then Exit Sub   
    Set shp = ActiveSheet.Shapes("Text Box 1")
    Set pic = ActiveSheet.Pictures.Insert(sPicture)
    With pic
        .Name = "My Picture"
        .ShapeRange.LockAspectRatio = msoFalse
        .Height = shp.Height
        .Width = shp.Width
        .Top = shp.Top
        .Left = shp.Left
        .Placement = xlMoveAndSize
    End With
    Set shps = ActiveSheet.Shapes.Range(Array("Text Box 1", "My Picture"))
    shps.Group
    shps.Name = "Pic inside text box"    
    Set pic = Nothing
End Sub


Please have a try, hope it can help you!
If you have any other problem, please comment here.
Reply
Report
0
0
Alex Pineda
Alex Pineda     skyyang
This comment was minimized by the moderator on the site
It work perfectly. Only change the Text box name as shown:
Set xSh = Sheets("Sheet1").Shapes("TextBox 2")
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations