Word दस्तावेज़ में एक ही आकार के एकाधिक चित्र कैसे सम्मिलित करें?

आम तौर पर, आप किसी Word दस्तावेज़ में एक साथ कई छवियां उनके मूल आकार के साथ सम्मिलित कर सकते हैं। कभी-कभी, सम्मिलित करते समय आपको इन छवियों को समान आकार में व्यवस्थित करने की आवश्यकता होती है। इस लेख में, मैं एक वर्ड दस्तावेज़ में एक ही आकार के कई चित्र कैसे सम्मिलित करें, इसके बारे में बात करूंगा।

VBA कोड के साथ Word दस्तावेज़ में एक ही आकार के कई चित्र सम्मिलित करें

वर्ड के लिए कुटूल के साथ एक विशिष्ट छवि के आधार पर सभी चित्रों का आकार एक ही आकार में बदलें

VBA कोड के साथ Word दस्तावेज़ में एक ही आकार के कई चित्र सम्मिलित करें

निम्नलिखित वीबीए कोड आपको एक साथ कई चित्र सम्मिलित करने और उन्हें आपके निर्दिष्ट आकार में आकार देने में मदद कर सकता है, कृपया ऐसा करें:

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

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।

VBA कोड: एक ही आकार के अनेक चित्र सम्मिलित करें:

Sub InsertSpecificNumberOfPictureForEachPage()
    Dim xDlg As FileDialog
    Dim xFilePath As String
    Dim xFileName As String
    Dim xMsbBoxRtn As Long
    Dim xPicSize As String
    Dim xShape As InlineShape
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFilePath = xDlg.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    xFileName = Dir(xFilePath & "*.*", vbNormal)
    While xFileName <> ""
        If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
        Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
            GoTo LblCtn
        End If
        With Selection
            .InlineShapes.AddPicture xFilePath & xFileName, False, True
            .TypeParagraph
            .Collapse wdCollapsEnd
            .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeParagraph
        End With
LblCtn:
        xFileName = Dir()
    Wend
    ActiveDocument.InlineShapes(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
    If xMsbBoxRtn = 6 Then
        xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
    End If
    For Each xShape In ActiveDocument.InlineShapes
      xShape.Height = Split(xPicSize, ",")(0)
      xShape.Width = Split(xPicSize, ",")(1)
    Next xShape
End Sub

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

4। तब दबायें OK बटन, और यदि आप चित्रों का आकार बदलना चाहते हैं तो आपको याद दिलाने के लिए एक प्रॉम्प्ट बॉक्स खुल जाएगा, स्क्रीनशॉट देखें:

5। क्लिक करें हाँ, और टेक्स्ट बॉक्स में अल्पविराम द्वारा अलग की गई ऊंचाई और चौड़ाई के आकार संख्या टाइप करें, स्क्रीनशॉट देखें:

6। और फिर क्लिक करें OK, सभी सम्मिलित छवियों को एक ही आकार में पुनः व्यवस्थित किया गया है, स्क्रीनशॉट देखें:

नोट: इकाई का आकार VBA कोड में तालाब है।

वर्ड के लिए कुटूल के साथ एक विशिष्ट छवि के आधार पर सभी चित्रों का आकार एक ही आकार में बदलें

यदि आपके Word दस्तावेज़ में एकाधिक चित्र मौजूद हैं, तो वर्ड के लिए कुटूलहै चित्रों का आकार बदलें उपयोगिता, आप सभी छवियों का विशिष्ट आकार के समान त्वरित रूप से आकार बदल सकते हैं।

स्थापित करने के बाद वर्ड के लिए कुटूल, कृपया ऐसा करें:

1. एक चित्र को अपने इच्छित आकार में समायोजित करें, और फिर उसे चुनें, फिर क्लिक करें कुटूल्स प्लस > आकार बदलें > चयन के साथ छवियों का आकार बदलें, स्क्रीनशॉट देखें:

2. और इस वर्ड दस्तावेज़ की सभी छवियों का आकार तुरंत चयनित छवि के समान कर दिया गया है, स्क्रीनशॉट देखें:

वर्ड के लिए कुटूल्स डाउनलोड करने और अभी निःशुल्क परीक्षण करने के लिए क्लिक करें!

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

वर्ड के लिए कुटूल - ओवर के साथ अपने शब्द अनुभव को उन्नत करें 100 उल्लेखनीय विशेषताएं!

🤖 कुटूल्स एआई असिस्टेंट: एआई के साथ अपना लेखन बदलें - सामग्री उत्पन्न करें  /  पाठ पुनः लिखें  /  दस्तावेज़ों को सारांशित करें  /  जानकारी के लिए पूछताछ करें दस्तावेज़ पर आधारित, सभी वर्ड के भीतर

📘 दस्तावेज़ महारत: पन्ने विभाजित करें  /  दस्तावेज़ मर्ज करें  /  विभिन्न प्रारूपों में निर्यात चयन (पीडीएफ/टीएक्सटी/डीओसी/एचटीएमएल...)  /  बैच को पीडीएफ में कनवर्ट करें  /  पेजों को छवियों के रूप में निर्यात करें  /  एक साथ अनेक फ़ाइलें प्रिंट करें...

✏ सामग्री संपादन: बैच ढूंढें और बदलें अनेक फ़ाइलों में  /  सभी चित्रों का आकार बदलें  /  तालिका पंक्तियों और स्तंभों को स्थानांतरित करें  /  तालिका को पाठ में बदलें...

🧹 सहज स्वच्छ: साफ़ कर दो अतिरिक्त स्थान  /  अनुभाग टूट जाता है  /  सभी शीर्षलेख  /  पाठ बक्से  /  हाइपरलिंक  / अधिक हटाने वाले टूल के लिए, यहां जाएं समूह हटाएँ...

➕ रचनात्मक निवेशन: डालें हजार विभाजक  /  चेक बॉक्स  /  रेडियो बटन  /  क्यूआर कोड  /  बारकोड  /  विकर्ण रेखा तालिका  /  समीकरण कैप्शन  /  तस्वीर का शीर्षक  /  सारणी का शीर्षक  /  एकाधिक चित्र  / में और अधिक खोजें समूह सम्मिलित करें...

🔍 परिशुद्धता चयन: सटीक विशिष्ट पृष्ठ  /  टेबल्स  /  आकृतियाँ  /  शीर्षक पैराग्राफ  / के साथ नेविगेशन बढ़ाएँ अधिक सुविधाएँ चुनें...

⭐ स्टार संवर्द्धन: किसी भी स्थान पर नेविगेट करें  /  दोहरावदार पाठ स्वतः सम्मिलित करें  /  दस्तावेज़ विंडोज़ के बीच टॉगल करें  /  11 रूपांतरण उपकरण...

👉 क्या आप इन सुविधाओं को आज़माना चाहते हैं? वर्ड के लिए कुटूल्स एक ऑफर करता है 60- दिन का नि: शुल्क परीक्षण, बिना किसी सीमा के! 🚀

मुफ्त डाउनलोड     विस्तार में पढ़ें     अभी खरीदें