前提：一份Word文檔里面有100張圖片，有大有小，需要將100張圖片更改為統一大小，寬度與高度均為5厘米，同時環繞方式也需要改成四周型。

默認Word圖片的默認環繞方式為嵌入型，需要統一更改為四周型，然后才能批量更改大小，而批量更改大小方式需要使用VBA代碼。

第一步：打開Word 文檔，并按下 Alt + F11 鍵（筆記本電腦按alt+fn+f11)，打開Visual Basic for Applications (VBA) 編輯器。在 VBA 編輯器中，選擇 "插入" -> "模塊"，創建一個新的模塊,如下圖所示輸入對應的代碼。

第二步：在(VBA) 編輯器輸入對應的過程代碼：

VBA代碼：

' 作用：循環遍歷所有的環繞方式為嵌入型圖片，將其更改為四周型

Sub ConvertInlineToSquareWrap()

Dim pic As InlineShape

' 循環遍歷所有的嵌入型圖片

For Each pic In ActiveDocument.InlineShapes

' 檢查是否為圖片類型

If pic.Type = wdInlineShapePicture Then

' 設置為四周型

pic.Select

Selection.ShapeRange.WrapFormat.Type = wdWrapSquare

End If

Next pic

End Sub

VBA代碼：

' 作用：更改圖片大小（對環繞方式為四周型或上下型起作用，如果是嵌入型不起作用）

Sub ResizeImages()

Dim shp As Shape

' 更改下面的寬度和高度為所需的尺寸（以厘米為單位）

Dim targetWidth As Single

targetWidth = CentimetersToPoints(5) ' 例如，將圖片寬度調整為5厘米

Dim targetHeight As Single

targetHeight = CentimetersToPoints(5) ' 例如，將圖片高度調整為5厘米

' 循環處理文檔中的所有圖片

For Each shp In ActiveDocument.Shapes

If shp.Type = msoPicture Then

' 更改圖片大小

shp.LockAspectRatio = msoFalse

shp.Width = targetWidth

shp.Height = targetHeight

End If

Next shp

End Sub

說明：在targetWidth = CentimetersToPoints(5) ，這個地方可以更改對應的最終目標圖片的寬度；targetHeight = CentimetersToPoints(5) 可以更改對應的最終目標圖片的高度；

運行宏：在VBA 編輯器中，選擇 "運行" -> "運行子過程"，或按下 F5 鍵。

第三步：關閉VBA 編輯器回到Word中，選擇 "開發工具" -> "宏"，在彈出的宏對話框，如下圖所示，宏對話框列表就會出現創建的過程，依次選定單擊運行即可批量更改圖片大小。

http://www.dushuwu.net/?570.html