MS Word-macro: chỉnh tất cả image (not shape) trong file word thành chiều ngang 7'

 

Tình huống sử dụng

Chuẩn hóa báo cáo: Đồng nhất chiều rộng của tất cả hình ảnh về một kích thước cố định (7 inches) để khớp với lề văn bản, giúp trình bày chuyên nghiệp hơn.

Xử lý ảnh quá khổ: Nhanh chóng thu nhỏ những hình ảnh có độ phân giải cao hoặc kích thước quá lớn bị tràn ra ngoài lề trang giấy sau khi chèn.

Bảo toàn tỷ lệ ảnh: Sử dụng thiết lập khóa tỷ lệ (LockAspectRatio) để đảm bảo ảnh không bị bóp méo hoặc biến dạng khi thay đổi kích thước.

Tiết kiệm thời gian: Thay thế việc phải nhấp chuột và kéo chỉnh thủ công từng tấm hình trong những tài liệu dài có hàng chục hoặc hàng trăm hình minh họa.

Sub ResizeInlineImages()

Dim ishp As InlineShape

' Resize inline shapes (images)

For Each ishp In ActiveDocument.InlineShapes

If ishp.Type = wdInlineShapePicture Then

With ishp

.LockAspectRatio = msoTrue

.Width = InchesToPoints(7)

End With

End If

Next ishp

End Sub