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

عادةً، يمكنك إدراج صور متعددة دفعة واحدة في مستند Word مع الاحتفاظ بأحجامها الأصلية. لكنك قد تحتاج أحيانًا إلى جعل جميع الصور بنفس الحجم لتحقيق مظهرٍ متناسق واحترافي. فتغيير حجم كل صورة يدويًّا قد يستغرق وقتًا طويلاً. سيُطلعك هذا الدليل على كيفية إدراج صور متعددة في مستند Word وتغيير أحجامها بشكل موحد وبكفاءة، لضمان تنسيقٍ احترافي ومتماسك.

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

تغيير حجم جميع الصور لتتطابق مع صورة معيّنة باستخدام Kutools for Word

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

يمكنك استخدام رمز VBA التالي لإدراج صور متعددة وتعديل أحجامها وفق الأبعاد التي تحددها دفعة واحدة. يُرجى اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
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 لتشغيل هذا الكود. ستظهر نافذةاستعراض. حدد المجلد الذي يحتوي على الصور التي تريد إدراجها، ثم انقرموافق.
4. ستظهر نافذة منبثقة تسألك عما إذا كنت ترغب في تغيير حجم الصور. انقرنعم.
5. أدخل الارتفاع والعرض بالنقاط (pt)، مفصولَين بفاصلة، في مربع النص الظاهر، ثم انقرموافق.

   

6. سيتم الآن تغيير حجم جميع الصور المُدرجة وفق الأبعاد المحددة.

   

تغيير حجم جميع الصور لتتطابق مع صورة معيّنة باستخدام Kutools for Word

عندما يحتوي مستند Word على صور متعددة، قد يكون تغيير أحجامها واحدة تلو الأخرى أمرًا مملًّا. ولكن معKutools for Word، تتيح لك أداةتغيير حجم الصورتعديل حجم جميع الصور دفعة واحدة لتتطابق مع حجم صورة معيّنة!

1. عدّل صورة واحدة لتكون بالحجم المطلوب وحدّدها. بعد ذلك، انقرKUTOOLS PLUS > تغيير الحجم > تغيير حجم جميع الصور بناءً على التحديد.

سيتم على الفور تغيير حجم جميع الصور في مستند Word لتتطابق مع أبعاد الصورة المحددة.

أفضل أدوات إنتاجية أوفيس

Kutools for Word – ارتقِ بتجربتك في Word مع أكثر من100 ميزة رائعة!

🤖مزايا KUTOOLS AI: مساعد الذكاء الاصطناعي / مساعد الوقت الفعلي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

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

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

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

➕إدراجات إبداعية: أدرجفواصل الآلاف،مربع اختيار،زر راديو،رمز QR،الباركود، أوصورًا متعددة! اكتشف المزيد في مجموعةإدراج...

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

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

🌍يدعم أكثر من 40 لغة: استخدم كوتولز باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

 

تنزيل مجاني     اشترِ الآن     معرفة المزيد

 

---

Office Tab- يجلب واجهة ذات علامات تبويب إلى أوفيس، مما يجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

تنزيل مجاني     اشترِ الآن     معرفة المزيد

 

---

✨ Kutools for Office – تثبيت واحد، خمسة أدوات قوية!

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

📦 احصل على جميع أدوات 5 في حزمة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وقت الحفظ وعزّز إنتاجيتك فورًا

⬇️ تنزيل الآن🎁 اشترِ الحزمة الكاملة📖 معرفة المزيد

أفضل أدوات إنتاجية أوفيس

Kutools for Word- أدوات 100+ لـ Word

• 🤖KUTOOLS AI ميزات:مساعد الذكاء الاصطناعي/مساعد الوقت الحقيقي/تلميع فائق/ترجمة فائقة/إخفاء المعلومات باستخدام الذكاء الاصطناعي/التدقيق اللغوي بالذكاء الاصطناعي
• 📘إتقان المستندات:تقسيم الصفحات/دمج المستندات/تحويل دفعة إلى PDF
• ✏تحرير المحتوى:البحث والاستبدال الجماعي/تغيير حجم جميع الصور
• 🧹تنظيف سهل:إزالة المسافات الزائدة/إزالة فاصل المقطع
• ➕إدراجات إبداعية:إدراج فواصل الآلاف/إدراج مربع اختيار/إنشاء رمز QR
• 🌍يدعم أكثر من 40 لغة: كوتولز يتحدث لغتك – يدعم أكثر من 40 لغة!

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools