word宏修改圖片大小

　　隨后彈出“宏”對話框，在宏名中輸入setpicsize。

　　宏名起好了，單擊“創(chuàng)建”按鈕進入Visual Basic 編輯器，輸入如下代碼

　　Sub setpicsize() '設(shè)置圖片大小Dim n '圖片個數(shù)On Error Resume Next '忽略錯誤For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片ActiveDocument.InlineShapes(n).Height = 400 '設(shè)置圖片高度為 400pxActiveDocument.InlineShapes(n).Width = 300 '設(shè)置圖片寬度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片ActiveDocument.Shapes(n).Height = 400 '設(shè)置圖片高度為 400pxActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300pxNext nEnd Sub

　　關(guān)閉入Visual Basic 編輯器，返回word，重新選擇“工具”--“宏”--“宏”(或者直接按Alt+F8)，再次進入宏的界面，在彈出的宏名中選擇"setpicsize",最后點擊“運行”---確認即可快速地批量修改word中所有圖片大小，注意這里把圖片大小都修改成Height = 400，Width = 300，這個規(guī)格大家可以需要改變的~