在使用Word編輯文檔的時(shí)候，我們時(shí)常會(huì)插入一些圖片素材，如果word中插入了幾十甚至上百?gòu)垐D片，而且尺寸大小都不一樣，為了美觀統(tǒng)一。
需要將所有的圖片調(diào)整成相同的大小，你該不會(huì)一張張的調(diào)整吧？
Word中還有更高能的技巧：那就是使用宏（VBA）來(lái)實(shí)現(xiàn)Word批量修改圖片大小。下面，一起來(lái)看看Word批量調(diào)整圖片尺寸的操作技巧：
（1）首先插入圖片或直接打開(kāi)已有圖片的Word圖文文檔。
（2）直接按【Alt+F8】打開(kāi) “宏”對(duì)話框，在“宏名”文本框中輸入宏名稱"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 類型 圖片
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ì)話框查看宏，點(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ì)話框中取消勾選““鎖定縱橫比”復(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)行宏
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。