كيفية تغيير حجم كل / عدة صور في 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

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

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

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

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

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

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

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

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

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

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀

تحميل مجانا     تفاصيل أكثر     اشتري الآن