怎樣在word裏批量修改圖片大小

當一個word文件裏有很多張圖片時，通過使用vba可以批量將文件中所有圖片修改為同樣大小，令文件看起來更加整潔有序

操作方法

（01）假設有一個word文件，中間有多張大小不一的圖片，需要將其中的圖片按比例縮放為一樣高或者一樣寬。

（02）在菜單欄中選擇“開發工具”選項卡，點擊“Visual Basic”打開VBA編輯器。

（03）在打開的編輯器中輸入以下代碼，稍後做詳細解釋。Sub 設為統一寬度()Dim n '圖片個數Dim picwidthDim picheightDim newWidthnewWidth = 300On Error Resume Next '忽略錯誤For n = 1 To t 'InlineShapes 類型圖片picheight = neShapes(n)htpicwidth = neShapes(n)neShapes(n)ht = picheight * newWidth / neShapes(n)h = newWidthNext nFor n = 1 To t 'Shapes類型圖片picheight = es(n)htpicwidth = es(n)t neShapes(n)ht = picheight * newWidth / neShapes(n)h = newWidthNext nEnd SubSub 設為統一高度()Dim n '圖片個數Dim picwidthDim picheightDim newHeightnewHeight = 200 '設為統一高度時修改此數值On Error Resume Next '忽略錯誤For n = 1 To t 'InlineShapes 類型圖片picheight = neShapes(n)htpicwidth = neShapes(n)neShapes(n)ht = neShapes(n)h = picwidth * newHeight / picheightNext nFor n = 1 To t 'Shapes類型圖片picheight = es(n)htpicwidth = es(n)t neShapes(n)ht = neShapes(n)h = picwidth * newHeight / picheightNext nEnd Sub

（04）sub後面就是一個過程的名字，想要運行哪個過程，就把活動光標放在哪個過程體裏面，或者在右上角選擇相應名稱的過程。按F5鍵，或者單擊菜單欄上的運行按鈕，運行相應過程。

（05）如果運行的是“設為統一寬度”，將得到以下結果。

（06）如果運行的是“設為統一高度”，將得到以下結果。

（07）也可以通過直接設置代碼中的neShapes(n)ht、neShapes(n)h、neShapes(n)ht、neShapes(n)h的數值來修改圖片，例如“neShapes(n)ht=200”。但是這樣就不是等比例縮放了。

特別提示

運行之前注意選擇需要運行的過程