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

默認(rèn)Word圖片的默認(rèn)環(huán)繞方式為嵌入型，需要統(tǒng)一更改為四周型，然后才能批量更改大小，而批量更改大小方式需要使用VBA代碼。

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

第二步：在(VBA) 編輯器輸入對(duì)應(yīng)的過(guò)程代碼：

VBA代碼：

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

Sub ConvertInlineToSquareWrap()

    Dim pic As InlineShape

    ' 循環(huán)遍歷所有的嵌入型圖片

    For Each pic In ActiveDocument.InlineShapes

        ' 檢查是否為圖片類型

        If pic.Type = wdInlineShapePicture Then

            ' 設(shè)置為四周型

            pic.Select

            Selection.ShapeRange.WrapFormat.Type = wdWrapSquare

        End If

    Next pic

End Sub

VBA代碼：

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

Sub ResizeImages()

    Dim shp As Shape

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

    Dim targetWidth As Single

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

     Dim targetHeight As Single

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

    ' 循環(huán)處理文檔中的所有圖片

    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

說(shuō)明：在  targetWidth = CentimetersToPoints(5) ，這個(gè)地方可以更改對(duì)應(yīng)的最終目標(biāo)圖片的寬度； targetHeight = CentimetersToPoints(5) 可以更改對(duì)應(yīng)的最終目標(biāo)圖片的高度；

運(yùn)行宏：在 VBA 編輯器中，選擇 "運(yùn)行" -> "運(yùn)行子過(guò)程"，或按下 F5 鍵。

第三步：關(guān)閉VBA 編輯器回到Word中，選擇 "開(kāi)發(fā)工具" -> "宏"，在彈出的宏對(duì)話框，如下圖所示，宏對(duì)話框列表就會(huì)出現(xiàn)創(chuàng)建的過(guò)程，依次選定單擊運(yùn)行即可批量更改圖片大小。