انتقل إلى المحتوى الرئيسي

 كيفية إدراج صور متعددة بنفس الحجم في مستند Word؟

المؤلف: شياويانغ آخر تعديل: 2020-05-22

عادة ، يمكنك إدراج صور متعددة مرة واحدة في مستند Word بحجمها الأصلي. في بعض الأحيان ، تحتاج إلى ترتيب هذه الصور بنفس الحجم عند الإدراج. في هذه المقالة ، سأتحدث عن كيفية إدراج صور متعددة بنفس الحجم في مستند Word.

قم بإدراج صور متعددة بنفس الحجم في مستند Word برمز VBA

قم بتغيير حجم جميع الصور إلى نفس الحجم بناءً على صورة معينة باستخدام Kutools for Word


قم بإدراج صور متعددة بنفس الحجم في مستند Word برمز VBA

يمكن أن يساعدك رمز vba التالي على إدراج صور متعددة وتغيير حجمها إلى الحجم المحدد مرة واحدة ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.

كود فبا: أدخل عدة صور بنفس الحجم:

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 مفتاح لتشغيل هذا الرمز ، أ تصفح يتم عرض النافذة ، يرجى تحديد المجلد الذي يحتوي على الصور التي تريد إدراجها ، انظر الصورة:

doc إدراج الصور بنفس الحجم 1

4. ثم اضغط OK ، ويظهر مربع موجه لتذكيرك إذا كنت تريد تغيير حجم الصور ، انظر لقطة الشاشة:

doc إدراج الصور بنفس الحجم 2

5. انقر هل، واكتب أرقام حجم الطول والعرض مفصولة بفاصلة في مربع النص ، انظر الصورة:

doc إدراج الصور بنفس الحجم 3

6. ثم انقر فوق OK، تم إعادة ترتيب جميع الصور المدرجة بنفس الحجم ، انظر الصورة:

doc إدراج الصور بنفس الحجم 4

ملاحظات: حجم الوحدة هو بركة في كود فبا.


قم بتغيير حجم جميع الصور إلى نفس الحجم بناءً على صورة معينة باستخدام Kutools for Word

في حالة وجود صور متعددة في مستند Word الخاص بك ، باستخدام كوتولس للكلمةالصورة تغيير حجم الصور ، يمكنك تغيير حجم جميع الصور بسرعة بنفس الصورة المحددة.

كوتولس للكلمة : مع أكثر من 100 وظيفة إضافية مفيدة في Word ، يمكنك تجربتها مجانًا دون قيود في أيام 60. 

بعد تثبيت كوتولس للكلمة، يرجى القيام بذلك على النحو التالي:

1. اضبط صورة واحدة بالحجم الذي تريده ، ثم حددها ، ثم انقر فوق كوتولس بلس > تغيير حجم > تغيير حجم الصور مع التحديد، انظر لقطة الشاشة:

2. وقد تم تغيير حجم جميع الصور في مستند Word هذا بنفس الصورة المحددة على الفور ، انظر لقطة الشاشة:

انقر لتنزيل Kutools for Word والتجربة المجانية الآن!

أفضل أدوات إنتاجية المكتب

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى  /  إعادة كتابة النص  /  تلخيص المستندات  /  احصل على إجابات سريعة، كل ذلك داخل Word

📘 إتقان الوثيقة: تقسيم الصفحات  /  دمج المستندات  /  تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...)  /  دفعة تحويل إلى PDF  /  تصدير الصفحات كصور  /  طباعة ملفات متعددة في وقت واحد

تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة  /  تغيير حجم كافة الصور  /  تبديل صفوف وأعمدة الجدول  /  تحويل الجدول إلى نص

🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية  /  فواصل القسم  /  كل الرؤوس  /  مربعات النص  /  الارتباطات التشعبية  / لمزيد من أدوات الإزالة، توجه إلى إزالة المجموعة

إدراجات إبداعية: إدراج الف فاصل  /  مربعات الاختيار  /  أزرار الراديو  /  رمز الاستجابة السريعة  /  الباركود  /  جدول الخط القطري  /  شرح المعادلة  /  صورة توضيحية  /  الجدول التوضيحي  /  صور متعددة  / اكتشف المزيد في إدراج مجموعة

🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة  /  طاولات الطعام  /  الأشكال  /  فقرات العناوين  / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات

تحسينات النجوم: انتقل إلى أي مكان  /  الإدراج التلقائي للنص المتكرر  /  التبديل بين مستند Windows  /  11 أدوات التحويل

؟؟؟؟ هل تريد تجربة هذه الميزات؟ قم بتنزيل Kutools for Word اليوم وتجربة الفرق! 🚀
 
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/rapporto? pixel? cm?
GRAZIE!
This comment was minimized by the moderator on the site
Hello, Grasselli
The unit size is pond in the above VBA code.
Thank you!
This comment was minimized by the moderator on the site
thanks for help ... it is very interesting ... big job ... good luck
This comment was minimized by the moderator on the site
Hi, hello
I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
Thanks for that :)
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations