批量更改word圖片大小的方法

　　工作中，我們不時(shí)會(huì)需要將大量圖片插入word，并對其設(shè)置統(tǒng)一的尺寸大小。那么下面就由學(xué)習(xí)啦小編給大家分享下批量更改word圖片大小的技巧，希望能幫助到您。

　　批量更改word圖片大小的步驟

　　步驟一：彈出宏創(chuàng)建窗口

　　步驟二：在宏名欄里任意輸入一個(gè)宏的名字，本例中我們使用“setpicsize”

　　步驟三：點(diǎn)擊創(chuàng)建

　　步驟四：彈出“Microsoft Visual Basic”窗口，復(fù)制下面的代碼到代碼窗口里替換掉原有內(nèi)容：

　　Sub setpicsize() '設(shè)置圖片大小

　　Dim n '圖片個(gè)數(shù)

　　On Error Resume Next '忽略錯(cuò)誤

　　For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 類型 圖片

　　ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '設(shè)置圖片高度為 5cm (1cm等于28.35px)

　　ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '設(shè)置圖片寬度 4cm

　　Next n

　　End Sub

　　'其中圖片本例中圖片尺寸為5cm和4cm

　　步驟五：點(diǎn)擊“Microsoft Visual Basic”窗口工具欄里的“運(yùn)行”按鈕(類似播放器里的播放按鈕)或者按鍵盤“F5”鍵

　　步驟六：待標(biāo)題欄上方的[正在運(yùn)行]消失后，點(diǎn)擊右上角小叉關(guān)閉“Microsoft Visual Basic”窗口。