Word快速修改所有圖片尺寸

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

修改自[分享] 讓你輕鬆大量修改 Word圖片大小
https://www.ptt.cc/bbs/Office/M.1382671008.A.61B.html

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *