怎樣在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”。但是這樣就不是等比例縮放了。

特別提示

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