ไปยังเนื้อหาหลัก

วิธีปรับขนาดภาพทั้งหมด / หลายภาพใน Word

เมื่อเราคัดลอกหรือนำเข้าภาพจากอินเทอร์เน็ตหรือไฟล์อื่น ๆ ขนาดของภาพอาจแตกต่างกัน ทุกคนรู้วิธีการปรับขนาดรูปภาพทีละภาพ แต่ถ้าเราต้องการปรับขนาดให้มีขนาดเท่ากันทั้งหมดเราจะทำอย่างไร? บทช่วยสอนนี้จะแสดงวิธีการปรับขนาดรูปภาพหลายวิธี

ปรับขนาดภาพด้วยตนเองใน Word

ปรับขนาดภาพด้วย VBA

ปรับขนาดภาพหลายภาพพร้อมกันด้วย Kutools for Word


ปรับขนาดภาพด้วยตนเองใน Word

1. เพื่อแสดงจุดจับปรับขนาดของรูปภาพโดยคลิกที่รูปภาพ

2. วางเคอร์เซอร์ไว้ที่ด้ามจับปรับขนาดของรูปภาพ

3. ลากที่จับปรับขนาดจนกระทั่งได้ขนาดภาพที่เหมาะสมกับความต้องการของคุณ ดูภาพหน้าจอ:

doc ปรับภาพ 1

หมายเหตุ: ด้วยวิธีนี้คุณไม่สามารถปรับขนาดรูปภาพหลายภาพพร้อมกันได้ คุณต้องปรับขนาดทีละภาพจนกว่าจะปรับขนาดภาพทั้งหมด


ปรับขนาดภาพด้วย VBA

ด้วยรหัส VBA ต่อไปนี้คุณสามารถปรับขนาดรูปภาพให้เป็นขนาดที่คุณต้องการได้ สามารถทำได้ดังนี้:

ในตัวอย่างนี้เราปรับขนาดรูปภาพเป็นความสูง 1.78 นิ้วและกว้าง 3.17 นิ้ว

1. โปรดเลือกรูปภาพที่คุณต้องการเปลี่ยนขนาด

2. กด Alt + F11 เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง;

3. คลิก โมดูล ราคาเริ่มต้นที่ สิ่งที่ใส่เข้าไป คัดลอกและวางรหัส VBA ต่อไปนี้ลงในไฟล์ โมดูล หน้าต่าง;

รหัส 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 = InchesToPoints (3.17) ความสูงและความกว้างของภาพคุณสามารถเปลี่ยนขนาดตามความต้องการของคุณได้

ด้วยรหัส VBA นี้คุณจะไม่สามารถปรับขนาดภาพทั้งหมดหรือหลายภาพพร้อมกันได้ คุณต้องไปมาระหว่างเอกสาร Word และไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างเพื่อเลือกรูปภาพและใช้รหัส ใช้เวลานานเกินไป


ปรับขนาดภาพด้วย Kutools for Word

กับ Kutools สำหรับ Word 's ปรับขนาดรูปภาพ ยูทิลิตี้คุณสามารถกำจัดการดำเนินการที่น่ารำคาญและใช้เวลานานและปรับขนาดภาพทั้งหมดจากเอกสารของคุณได้อย่างรวดเร็ว

Kutools สำหรับ Word : ด้วยโปรแกรมเสริม Word ที่มีประโยชน์มากกว่า 100 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน. 

1. โปรดใช้ยูทิลิตี้นี้โดยคลิก Kutools พลัส > การปรับขนาด. ดูภาพหน้าจอ:

2. หากคุณต้องการปรับขนาดรูปภาพทั้งหมดเป็นเปอร์เซ็นต์ที่แน่นอนของขนาดต้นฉบับโปรดเลือกหนึ่งในหกเปอร์เซ็นต์จากรายการแบบเลื่อนลง ตัวอย่างเช่นหากคุณต้องการปรับขนาดรูปภาพทั้งหมดเป็น 50% ของขนาดต้นฉบับโปรดเลือก 50%. หลังจากคลิก 25%คุณจะเห็นภาพทั้งหมดมีขนาด 50% ดูภาพหน้าจอ:

doc ปรับภาพ 3

หากคุณต้องการปรับภาพทั้งหมดให้มีขนาดเท่ากันโดยใช้ภาพที่เลือกโปรดเลือกภาพเป็นขนาดโมเดลจากนั้นคลิก Kutools พลัส > การปรับขนาด > ปรับขนาดภาพด้วยการเลือกและภาพทั้งหมดจะถูกปรับขนาดให้มีขนาดเท่ากันตามภาพที่เลือกดูภาพหน้าจอ:

doc ปรับภาพ 4

สำหรับข้อมูลเพิ่มเติมเกี่ยวกับ Kutools สำหรับ Word's ปรับขนาดรูปภาพ ยูทิลิตี้โปรดคลิก โปรดคลิกที่นี่เพื่ออ่านรายละเอียดเพิ่มเติม.

คลิกเพื่อดาวน์โหลด Kutools for Word และทดลองใช้ฟรีทันที!


การสาธิต: ปรับขนาดภาพทั้งหมดพร้อมกันใน Word

Kutools สำหรับ Word: ด้วยโปรแกรมเสริม Word ที่มีประโยชน์มากกว่า 100 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!

เจาะลึกคุณสมบัติเด่นด้านล่างหรือ คลิกที่นี่เพื่อสำรวจพลังทั้งหมดของ Kutools for Word.

📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า  /  ผสานเอกสาร  /  ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/XLSX)  /  แบทช์แปลงเป็น PDF  /  ส่งออกเพจเป็นรูปภาพ  /  พิมพ์หลายไฟล์พร้อมกัน ...

การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์   /  ปรับขนาดรูปภาพทั้งหมด   /  ย้ายแถวและคอลัมน์ของตาราง  /  แปลงตารางเป็นข้อความ ...

🧹 ทำความสะอาดได้อย่างง่ายดายกวาดออกไป พื้นที่พิเศษ  /  แบ่งส่วน  /   ส่วนหัวทั้งหมด  /  กล่องข้อความ  /  เชื่อมโยงหลายมิติ  /  หากต้องการทราบเครื่องมือในการถอดเพิ่มเติม โปรดไปที่ Remove Group ของเรา

ส่วนแทรกโฆษณา: สิ่งที่ใส่เข้าไป ตัวคั่นหลักพัน  /  กล่องกาเครื่องหมาย  /  ปุ่มวิทยุ  /  คิวอาร์โค้ด  /  บาร์โค้ด  /  ตารางเส้นทแยงมุม  /  คำอธิบายสมการ  /  คำบรรยายภาพ  /  คำบรรยายตาราง  /  รูปภาพหลายภาพ  /  ค้นพบเพิ่มเติมในกลุ่มแทรกของเรา

🔍 การเลือกที่แม่นยำ: ระบุหน้าเฉพาะ  /  ตาราง  /  รูปร่าง  /  หัวเรื่องย่อหน้า  /  นำทางอย่างง่ายดายโดยใช้กลุ่มที่เลือกของเรา

การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ  /  แทรกข้อความซ้ำอัตโนมัติ  /  สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น  /  11 เครื่องมือการแปลง ...

แปลงงาน Word ของคุณด้วย Kutools 👉 ดาวน์โหลดพร้อมทดลองใช้ 30 วันทันที 🚀.

 
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I wasted a good 3 hrs or more trying to get these VBA macros to work. Gave up and tried Kutools which works great! Purchased it right away as it is well worth the $49!
This comment was minimized by the moderator on the site
If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx. For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
This comment was minimized by the moderator on the site
I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
This comment was minimized by the moderator on the site
Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub
This comment was minimized by the moderator on the site
Where i put this code?
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub Excellent!!! You saved my money and my time. Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations