Cố định kích thước file hình ảnh trong Microsoft Word

Giả sử bạn là người hay sử dụng tính năng chèn nhiều hình ảnh vào trong tài liệu Microsoft Word .

Mỗi hình ảnh có kích thước khác nhau vì thế mỗi khi chèn hình ảnh nào bạn lại phải điều chỉnh lại theo cách thủ công .

Muốn có hình ảnh kích thước cố định nhanh trong Microsoft Word , bạn cần dùng macro .

Mở Microsoft Word bạn làm việc , bấm tổ hợp phím Alt_F11 , khi ấy cửa sổ Microsoft Visual Basic mở ra , bấm menu Insert > Module , bạn sao chép nội dung bên dưới .

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

Kích thước của hình ảnh tính theo inch , chiều cao được khai báo trong ishp.Height = InchesToPoints(1.78)

và chiều rộng trong mục ishp.Width = InchesToPoints(3.17) hiện tại đang đặt ví dụ là 1.78 x 3.17 –inch

Quay trở lại Word , bấm chọn hình ảnh bạn muốn đổi lại kích thước rồi chọn tab Developer > Macro rồi chạy macro có tên là ResizePics

Bạn có thể tạo nút bấm chạy macro này trên thanh Ribbon để thực hiện cho nhanh , cách làm như sau .

Vẫn trong file Word trên , sau khi làm xong macro .

Bấm nút Customize Quick Access Toolbar > More Commands …

$\"\"$

Trong mục Choose commands from , chọn Macro . Khi ấy bên dưới bạn sẽ thấy tên của macro này là Project.Module1.ResizePics , bấm chọn nó rồi bấm Add

$\"\"$