在使用Word編輯文檔的時(shí)候，我們時(shí)常會(huì)插入一些圖片素材，如果word中插入了幾十甚至上百?gòu)垐D片，而且尺寸大小都不一樣，為了美觀統(tǒng)一。

需要將所有的圖片調(diào)整成相同的大小，你該不會(huì)一張張的調(diào)整吧？

其實(shí)你完全可以不必這樣，除了通過(guò)昨天介紹“多張圖片大小怎么改？2個(gè)批量處理技巧【Word教程】”的2種方法之外，Word中還有更高能的技巧：那就是使用宏（VBA）來(lái)實(shí)現(xiàn)Word批量修改圖片大小。

下面，一起來(lái)看看Word批量調(diào)整圖片尺寸的操作技巧：

（1）首先插入圖片或直接打開(kāi)已有圖片的Word圖文文檔。

（2）直接按【Alt+F8】打開(kāi) “宏”對(duì)話(huà)框，在“宏名”文本框中輸入宏名稱(chēng)"setpicsize"，然后點(diǎn)擊“創(chuàng)建”按鈕。

（3）打開(kāi)VBA編輯器（也可直接按【Alt+F11】快捷鍵），刪除窗口中原有的通用代碼，然后將下面的代碼復(fù)制粘貼到窗口中。

Sub setpicsize() '設(shè)置圖片尺寸

Dim n '圖片個(gè)數(shù)

On Error Resume Next '忽略錯(cuò)誤

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 類(lèi)型 圖片

ActiveDocument.InlineShapes(n).Height = 198.45 '設(shè)置圖片高度為 7cm 

ActiveDocument.InlineShapes(n).Width = 283.5 '設(shè)置圖片寬度 10cm

Next n

End Sub

技巧提示：代碼中圖片的寬度（Height ）= 170.1 '設(shè)置圖片高度為 6cm ）；高度（Width） = 283.5 '設(shè)置圖片寬度 10cm，是如何計(jì)算得出的。

方法為：Word中的尺寸單位默認(rèn)是cm（厘米），而1cm等于28.35px（像素），由于代碼中換算設(shè)置的單位是px（像素）。所以就用尺寸高度或?qū)挾戎党讼袼刂怠＜礊椋?/span>7*28.35=198.45；寬度換算方法與此相同。

（4）然后按【Ctrl + S 】鍵保存內(nèi)容，關(guān)閉窗口。再次按【ALT + F8】打開(kāi) “宏”對(duì)話(huà)框查看宏，點(diǎn)擊“運(yùn)行”按鈕。此時(shí)，文檔中的所有圖片就會(huì)自動(dòng)的變成設(shè)置好的尺寸大小了。

效果如圖所示：

但是，細(xì)心的小伙伴會(huì)發(fā)現(xiàn)，上方文檔中圖片的高度還是不一樣，是怎么回事？這是由于勾選了“鎖定縱橫比”復(fù)選框（是Word為了調(diào)整圖片尺寸時(shí)，為保持圖片不變形而默認(rèn)勾選的選項(xiàng)）。

在圖片上右擊鼠標(biāo)，選擇“大小和位置”命令，在打開(kāi)的對(duì)話(huà)框中取消勾選““鎖定縱橫比”復(fù)選框。然后運(yùn)行宏，此時(shí)，所有圖片的高度和寬度就統(tǒng)一了。

又或是：打開(kāi)VBA編輯器（也可直接按【Alt+F11】快捷鍵），新建模塊，然后將下面的代碼復(fù)制粘貼到窗口中。

Sub FormatPics()

    Dim Shap As InlineShape

    For Each Shap In ActiveDocument.InlineShapes

        If Shap.Type = wdInlineShapePicture Then

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

            Shap.Width = CentimetersToPoints(10) '寬10CM

            Shap.Height = CentimetersToPoints(7) '高7CM

        End If

    Next

End Sub

然后保存宏，關(guān)閉窗口。再運(yùn)行宏：

▼ 附GIF：

趕快復(fù)制代碼試試Word統(tǒng)一調(diào)整圖片尺寸的方法吧。

Word教程相關(guān)推薦：

Word表格插入圖片后，word圖片自動(dòng)適應(yīng)表格技巧！

微信掃二維碼關(guān)注部落窩教育Word教程微信公眾號(hào)，每天和小編一起學(xué)Word。