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

 

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