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

　　Word用宏批量設(shè)置圖片大小的方法

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

　　先打開存有圖片的word。

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

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

　　宏名起好了，單擊“創(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è)置圖片高度為 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)，再次進(jìn)入宏的界面，在彈出的宏名中選擇"setpicsize",最后點(diǎn)擊“運(yùn)行”---確認(rèn)即可快速地批量修改word中所有圖片大小，注意這里把圖片大小都修改成Height = 400，Width = 300，這個(gè)規(guī)格大家可以需要改變的~