Sub adjustPictSize()
Dim picWidth As Integer
Dim picHeight As Integer
Dim oIshp As InlineShape

For Each oIshp In ActiveDocument.InlineShapes

'這邊不能用百分比
picHeight = oIshp.Height / 2
picWidth = oIshp.Width / 2

With oIshp
.LockAspectRatio = msoFalse
.Height = picHeight
.Width = picWidth
End With
Next oIshp
End Sub

Read more “Word快速修改所有圖片尺寸”