word在用宏批量設置圖片大小

　　最近發現，以前存了很多圖片在word，但圖片的很大，有的很小，規格都不一樣，堆在文檔里面很難看，為了美觀，下面學習啦給大家分享Word中利用宏批量設置圖片大小的操作方法，歡迎大家來到學習啦學習。

　　Word用宏批量設置圖片大小的方法

　　大家看看我是怎么樣利用宏批量修改word中所有圖片大小，

　　先打開存有圖片的word。

　　在打開的文檔中，選擇在“工具”菜單中選擇“宏”--“宏”。

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

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

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

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