word批次修改圖片大小方法： 　　固定長寬方法： 　　

1、開啟word，工具-宏-宏(或者直接按Alt+F8)進入宏的介面，如下面所示，輸入一個宏名，宏名自己起，能記住就行! 　　

2、宏名起好了，單擊“建立”進入Visual Basic 編輯器，輸入如下程式碼並儲存 　　Sub setpicsize() "設定圖片大小 　　Dim n "圖片個數 　　On Error Resume Next "忽略錯誤 　　Forn = 1 ToActiveDocument.InlineShapes.Count "InlineShapes型別圖片 　　ActiveDocument.InlineShapes(n).Height = 400 "設定圖片高度為 400px 　　Nextn 　　Forn = 1 ToActiveDocument.Shapes.Count "Shapes型別圖片 　　ActiveDocument.Shapes(n).Height = 400 "設定圖片高度為 400px 　　ActiveDocument.Shapes(n).Width = 300 "設定圖片寬度 300px 　　Nextn 　　End Sub 　　

3、返回word，工具-宏-宏(或者直接按Alt+F8)，再次進入宏的介面，選擇剛才編輯好的宏，並單擊“執行”按鈕，就可以了!(圖片多時，可能會花一些時間) 　　按比例縮放方法 　　這部分要說的是把word中的所有圖片按比例縮放! 　　具體操作同上，只是程式碼部分稍做修改，程式碼如下： 　　Sub setpicsize() "設定圖片大小 　　Dim n "圖片個數 　　Dimpicwidth 　　Dimpicheight 　　On Error Resume Next "忽略錯誤 　　For n = 1 ToActiveDocument.InlineShapes.Count "InlineShapes型別圖片 　　picheight = ActiveDocument.InlineShapes(n).Height 　　picwidth = ActiveDocument.InlineShapes(n).Width 　　ActiveDocument.InlineShapes(n).Height = picheight * 1.1 "設定高度為1.1倍 　　ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 "設定寬度為1.1倍 　　Nextn 　　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 "設定高度為1.1倍 　　ActiveDocument.Shapes(n).Width = picwidth * 1.1 "設定寬度為1.1倍 　　Nextn 　　End Sub 　　若還想使所有圖片居中對齊，可在迴圈中加入下面的語句： 　　ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter 　　‘左對齊：wdAlignParagraphLeft 　　注意：這裡的Shapes(InlineShapes)不僅僅是指圖片，也包含其它的，自選圖形、任意多邊形、OLE 物件、ActiveX 控制元件、圖片等。 　　好啦！word批次修改圖片大小的方法就是這樣的了，這兩種方法各有千秋，大家可以根據情況自行選擇哦！ 猜你還喜歡： word未儲存如何恢復?word文件未儲存恢復方法彙總 word文件如何畫線條？word快速畫出5種線條小技巧

藉助工具：圖叫獸

操作步驟：

第一步、雙擊開啟軟體，選擇左側的“更改尺寸”功能；

第三步、如圖所示，在這裡勾選“指定尺寸”，然後再設定大小即可；

第四步、這裡建議勾選“自定義”選擇新的輸出目錄，以免與原圖混淆；

完成後，開啟圖片，可以看到圖片已經全部改成指定大小了。

怎麼樣，是真的超級簡單吧！