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

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

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

تغيير حجم الصور باستخدام VBA

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

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

1. لإظهار مقابض تحجيم الصورة من خلال النقر على الصورة ؛

2. ضع المؤشر على أحد مقابض تغيير حجم الصورة.

3. اسحب مقبض التحجيم حتى يتناسب حجم الصورة مع احتياجاتك. انظر لقطة الشاشة:

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

تغيير حجم الصور باستخدام VBA

باستخدام رمز فبا التالي ، يمكنك تغيير حجم الصور إلى الحجم المثالي. يمكنك القيام بذلك على النحو التالي ：

في هذا المثال ، قمنا بتغيير حجم الصورة إلى 1.78 بوصة ارتفاع و 3.17 بوصة عرض.

1. الرجاء تحديد الصورة التي تريد تغيير حجمها ؛

2. صحافة ألت + فسنومك لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك؛

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

4. انقر يجري زر أو F5 مفتاح لتشغيل رمز VBA ، وتم تغيير حجم الصورة المحددة إلى الحجم الذي تريده.

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

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

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

بإضافة إلى كوتولس فور ووردs تغيير حجم الصور يمكنك التخلص من تلك العمليات المزعجة والمستهلكة للوقت ، وتغيير حجم جميع الصور من المستند بسرعة.

1. الرجاء تطبيق هذه الأداة عن طريق النقر كوتولس بلس > تغيير حجم. انظر لقطة الشاشة:

2. إذا كنت تريد تغيير حجم جميع الصور إلى نسبة معينة من حجمها الأصلي ، فيرجى تحديد إحدى النسب المئوية الستة من القائمة المنسدلة. على سبيل المثال ، إذا كنت تريد تغيير حجم كل الصور إلى 50٪ من حجمها الأصلي ، فيرجى تحديد و ان آكثر من 50%. بعد النقر و ان آكثر من 25%، ستلاحظ أنه تم تغيير حجم جميع الصور إلى 50٪. انظر لقطة الشاشة:

إذا كنت ترغب في ضبط جميع الصور بنفس الحجم مع صورة مختصرة ، يرجى تحديد صورة بحجم النموذج ، ثم النقر فوق كوتولس بلس > تغيير حجم > تغيير حجم الصور مع التحديد، وسيتم تغيير حجم جميع الصور بنفس الحجم بناءً على الصورة المختصرة ، انظر الصورة:

للحصول على معلومات أكثر تفصيلا حول كوتولس للكلمةالصورة تغيير حجم الصور فائدة ، الرجاء الضغط هنا.

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

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

---

أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

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

التفاصيل حمل التطبيق الآن شراء