كيفية تغيير حجم جميع الصور / صور متعددة في Word؟

عند نسخ أو استيراد الصور من الإنترنت أو الملفات الأخرى، قد تختلف أحجام هذه الصور بشكل كبير. بينما يعد تغيير حجم الصور واحدة تلو الأخرى مهمة شائعة، إلا أن القيام بذلك لصور متعددة قد يستغرق وقتًا طويلاً. سيرشدك هذا البرنامج التعليمي عبر عدة طرق، بدءًا من تغيير حجم صورة واحدة ثم الانتقال إلى تقنيات لتغيير حجم صور متعددة بفعالية.

تغيير حجم الصور يدويًا في Word

تغيير حجم صور متعددة دفعة واحدة باستخدام Kutools for Word

تغيير حجم الصور إلى أبعاد محددة باستخدام VBA

---

تغيير حجم الصور يدويًا في Word

1. حدد صورة لعرض مقابض تحجيمها.
2. اسحب أيًا من مقابض التحجيم حتى تصل الصورة إلى الأبعاد المرغوبة.

   

ملاحظة: هذه الطريقة لا تتيح لك تغيير حجم عدة صور في نفس الوقت. ستحتاج إلى تغيير حجم كل صورة على حدة.

---

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

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

• لتغيير حجم جميع الصور إلى نسبة معينة من حجمها الأصلي:
  • انقر فوق Kutools Plus > تغيير الحجم، وحدد أحد النسب الستة من القائمة المنسدلة. على سبيل المثال، اختر 50% لتغيير حجم جميع الصور إلى نصف حجمها الأصلي.

    

• لضبط جميع الصور لتتناسب مع حجم صورة محددة:
  1. حدد صورة لتصبح النموذج للحجم.
  2. انقر فوق Kutools Plus > تغيير الحجم > تغيير حجم جميع الصور بناءً على التحديد. سيتم تغيير حجم جميع الصور لتكون بنفس حجم الصورة المحددة.

     

• إذا كنت بحاجة إلى خيارات أكثر تحديدًا، انقر فوق Kutools Plus > تغيير الحجم > تخصيص للوصول إلى إعدادات متقدمة لتغيير الحجم.

  

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

---

تغيير حجم صورة إلى أبعاد محددة باستخدام VBA

مع الكود التالي لـ VBA، يمكنك تغيير حجم صورة إلى الحجم المثالي. يوضح المثال أدناه كيفية تغيير حجم صورة إلى ارتفاع 1.78 بوصة وعرض 3.17 بوصة.

1. يرجى تحديد الصورة التي تريد تغيير حجمها.
2. اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
3. انقر وحدة من إدراج التبويب، ثم قم بنسخ ولصق الكود التالي لـ VBA في وحدة النافذة.

   Sub ResizePics()
   Dim shp As Word.Shape
   Dim ishp As Word.InlineShape
   If Word.Selection.Type <> wdSelectionInlineShape And _
   Word.Selection.Type <> wdSelectionShape Then
       Exit Sub
   End If
   If Word.Selection.Type = wdSelectionInlineShape Then
       Set ishp = Word.Selection.Range.InlineShapes(1)
       ishp.LockAspectRatio = False
       ishp.Height = InchesToPoints(1.78)
       ishp.Width = InchesToPoints(3.17)
   Else
       If Word.Selection.Type = wdSelectionShape Then
           Set shp = Word.Selection.ShapeRange(1)
           shp.LockAspectRatio = False
           shp.Height = InchesToPoints(1.78)
           shp.Width = InchesToPoints(3.17)
       End If
   End If
   End Sub

   ملاحظة: في الكود أعلاه، ishp.Height = InchesToPoints(1.78) و shp.Width = InchesToPoints(3.17) يحددان ارتفاع وعرض الصورة بالبوصة. يمكنك تغيير هذه القيم لتتناسب مع احتياجاتك.

4. انقر فوق زر التشغيل أو اضغط على F5 لتشغيل كود VBA. سيتم تغيير حجم الصورة المحددة إلى الأبعاد المحددة.

بينما يكون كود VBA هذا مفيدًا، فإنه لا يمكنه تغيير حجم جميع الصور أو صور متعددة دفعة واحدة. ستحتاج إلى التنقل ذهابًا وإيابًا بين مستند Word ونافذة Microsoft Visual Basic for Applications لتحديد وتغيير حجم كل صورة، مما قد يستغرق وقتًا طويلاً. في مثل هذه الحالات، استخدم طريقة Kutools.

---

عرض توضيحي: كيفية تغيير حجم الصور في Word

---