كيفية تغيير حجم جميع / عدة صور في 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 لفتح نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.
3. انقروحدة البرمجة (Module)من تبويبإدراج، ثم انسخ والصق كود VBA التالي في نافذةوحدة البرمجة (Module).

   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 ونافذةمايكروسوفت فيجوال بيسيك للتطبيقاتلتحديد كل صورة وتغيير حجمها، وهو أمر قد يستغرق وقتًا طويلاً. في مثل هذه الحالات، استخدمطريقة Kutools.

---

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

---