【word如何批量修改圖片大小】word批量修改圖片大小
word批量修改圖片大小——固定長(zhǎng)寬篇
這部分要說(shuō)的是把word中的所有圖片修改成固定的并且相同的長(zhǎng)和寬！
1、打開word，工具－宏－宏（或者直接按Alt+F8）進(jìn)入宏的界面，如下面所示，輸入一個(gè)宏名，宏名自己起，能記住就行！
2、宏名起好了，單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器，輸入如下代碼并保存
Sub setpicsize() "設(shè)置圖片大小
Dim n"圖片個(gè)數(shù)
On Error Resume Next "忽略錯(cuò)誤
For n = 1 To ActiveDocument.InlineShapes.Count "InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Height = 400 "設(shè)置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 "設(shè)置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count "Shapes類型圖片
ActiveDocument.Shapes(n).Height = 400 "設(shè)置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 "設(shè)置圖片寬度 300px
Next n
End Sub
3、返回word，工具－宏－宏（或者直接按Alt+F8），再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊“運(yùn)行”按鈕，就可以了！（圖片多時(shí)，可能會(huì)花一些時(shí)間）word批量修改圖片大小——按比例縮放篇
這部分要說(shuō)的是把word中的所有圖片按比例縮放！
具體操作同上，只是代碼部分稍做修改，代碼如下：
Sub setpicsize() "設(shè)置圖片大小
Dim n"圖片個(gè)數(shù)
Dim picwidth
Dim picheight
On Error Resume Next "忽略錯(cuò)誤
For n = 1 To ActiveDocument.InlineShapes.Count "InlineShapes類型圖片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 1.1 "設(shè)置高度為1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 "設(shè)置寬度為1.1倍
Next n
For n = 1 To
ActiveDocument.Shapes.Count "Shapes類型圖片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 1.1 "設(shè)置高度為1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 "設(shè)置寬度為1.1倍
Next n
End Sub
本文來(lái)源：http://www.lsjse.com/duhougan/45638.html