Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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


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

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

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

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

doc ضبط الصور 1

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


تغيير حجم الصور باستخدام 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 تغيير حجم الصور يمكنك التخلص من تلك العمليات المزعجة والمستهلكة للوقت ، وتغيير حجم جميع الصور من المستند بسرعة.

كوتولس للكلمة : مع أكثر من 100 وظيفة إضافية مفيدة في Word ، يمكنك تجربتها مجانًا دون قيود في أيام 60. 

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

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

doc ضبط الصور 3

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

doc ضبط الصور 4

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

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


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

كوتولس للكلمة: مع أكثر من 100 وظيفة إضافية مفيدة في Word ، يمكنك تجربتها مجانًا دون قيود في أيام 60. تنزيل وتجربة مجانية الآن!


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

 

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (6)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
احفظ أموالك وقم بتشغيل هذا الماكرو: الائتمان إلى Dave Sub ، resizeimages () Dim i طويل مع ActiveDocument لـ i = 1 إلى. InlineShapes.Count With. InlineShapes (i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
احفظ أموالك وقم بتشغيل هذا الماكرو: الائتمان إلى Dave Sub resizeimages () Dim i طويل مع ActiveDocument لـ i = 1 To. InlineShapes.C ount With. InlineShapes (i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End مع End Sub ممتاز!!! لقد وفرت أموالي ووقتي. شكراً جزيلاً!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أين أضع هذا الرمز؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يعرف أي شخص ما إذا كان العنصر النائب / القطارة / ميزة الحجم التلقائي للصورة متوفرة في Windows 365؟ لا توجد فكرة عن مكان البحث أو العثور على المساعدة بشأن هذا لأن مساعدة الدردشة من Microsoft كانت غير مفيدة للغاية. اي نصيحة ستكون موضع تقدير.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحتاج إلى تغيير حجم جميع الصور في مستند Word بنفس العرض ولكن دون تشويه الصور. لذلك قم بقياسها بنفس العرض. هل هذا ممكن من خلال الماكرو؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا قمت بحفظ المستند بتنسيق docx. ، فستتمكن من فتحه كأرشيف مضغوط. سيكون هناك مجلد وسائط به جميع الصور (كان لدي صور PNG). يمكنك بعد ذلك استخدام برامج مثل IrfanView و XnViewMP و FastStone Viewer لإجراء تحويلات مجمعة مثل تغيير الحجم وتقليل عمق اللون وما إلى ذلك. أعد حزم صورك إلى ملف مضغوط وأعد تسميتها إلى docx. على سبيل المثال ، في ملف docx المليء بلقطات الشاشة ، كنت بحاجة إلى تقليل عدد الألوان إلى 8 ، وهو ما يكفي لأغراض التوثيق. بعد معالجة مستند 10 ميجابايت الخاص بي أصبح 1.8 ميجابايت مستند ، لذلك يمكن أن يكون التوفير كبيرًا. احفظ دائمًا ملف docx الأصلي في حالة رغبتك في استعادة الصور بعد الكثير من التدهور / المعالجة وما إلى ذلك.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة