word文檔如何改所有圖片大小

A. 如何批量調整Word中圖片大小

在我們使用Word編輯文檔時衫埋孝，經常會在文章中插入一些圖片，但是這些圖片的大小比例往往並不一樣，因此看起來不是很美觀。那麼有沒有辦法將這些圖片批量調整為同一尺寸呢？下面就為大家帶來Word統一圖片尺寸的方法。

一、首先打開Word文檔，點擊插入圖片，將需要使用的圖片添加到Word中。

二、選擇任意一張圖片，之後點擊圖片工具中的批量調整按鈕，選擇批量改尺寸。

三、在圖片批量處理界面，我們可以對圖片的尺寸進行等比縮放，或者指定圖片的或稿尺寸。

四、圖片的尺寸修改完畢後，如果還需要調整圖片的比例，可以在裁剪頁面中對圖片進行固定液彎大小或固定比例裁剪。

五、完成所有圖片的調整後，點擊下方的批量替換原圖即可。

B. 如何批量修改word文檔中圖片的大小

一次性調節word所有圖片方法如下：

打開WORD，在」工具「菜單下，選擇」選項「命令，在」選項「窗口中，」編輯」選項卡下，將插入圖片的格式選擇為「四周型」。在「插入」菜單中選擇「圖片」/「來自文件」，在「插入圖片「對話框中選擇要插入的圖片。

然後在「繪圖」工具欄中的「添加或刪除按鈕」中選擇「選中多個對象」，使用「選中多個對象」，將所有插入的圖片全部選中。雙擊任意一圖片，在彈出的對余雹話框中，就可以統一批量設置了，完成。

在word中，默認插入的嵌入式圖片是不能批量統一設置，只有將默認修改為四周型後，才可以批差毀皮量修改圖片版式或大小。

用宏命令虛差最省心：

代碼1如下：

Sub setpicsize()

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoFalse '不鎖定縱橫比

iSha.Width = CentimetersToPoints(5) '寬5CM

iSha.Height = CentimetersToPoints(5) '高5CM

End If

Next

End Sub

代碼2如下：

Sub setpicsize()

Dim j '計數圖片個數

For j = 1 To ActiveDocument.InlineShapes.Count '文件中圖片總個數，圖片類型為inlineshapes

ActiveDocument.InlineShapes(j).Height = 300 '設置高度10.58cm

ActiveDocument.InlineShapes(j).Width = 510 '設置寬度17.99cm

Next j

End Sub