在使用Word編輯文檔的時候，我們時常會插入一些圖片素材，如果word中插入了幾十甚至上百張圖片，而且尺寸大小都不一樣，為了美觀統(tǒng)一。
需要將所有的圖片調(diào)整成相同的大小，你該不會一張張的調(diào)整吧？
Word中還有更高能的技巧：那就是使用宏（VBA）來實現(xiàn)Word批量修改圖片大小。下面，一起來看看Word批量調(diào)整圖片尺寸的操作技巧：
（1）首先插入圖片或直接打開已有圖片的Word圖文文檔。
（2）直接按【Alt+F8】打開 “宏”對話框，在“宏名”文本框中輸入宏名稱"setpicsize"，然后點擊“創(chuàng)建”按鈕。
（3）打開VBA編輯器（也可直接按【Alt+F11】快捷鍵），刪除窗口中原有的通用代碼，然后將下面的代碼復(fù)制粘貼到窗口中。
Sub setpicsize() '設(shè)置圖片尺寸
Dim n '圖片個數(shù)
On Error Resume Next '忽略錯誤
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，是如何計算得出的。
方法為：Word中的尺寸單位默認是cm（厘米），而1cm等于28.35px（像素），由于代碼中換算設(shè)置的單位是px（像素）。所以就用尺寸高度或?qū)挾戎党讼袼刂。即為?/span>7*28.35=198.45；寬度換算方法與此相同。
（4）然后按【Ctrl + S 】鍵保存內(nèi)容，關(guān)閉窗口。再次按【ALT + F8】打開 “宏”對話框查看宏，點擊“運行”按鈕。此時，文檔中的所有圖片就會自動的變成設(shè)置好的尺寸大小了。
效果如圖所示：
但是，細心的小伙伴會發(fā)現(xiàn)，上方文檔中圖片的高度還是不一樣，是怎么回事？這是由于勾選了“鎖定縱橫比”復(fù)選框（是Word為了調(diào)整圖片尺寸時，為保持圖片不變形而默認勾選的選項）。
在圖片上右擊鼠標，選擇“大小和位置”命令，在打開的對話框中取消勾選““鎖定縱橫比”復(fù)選框。然后運行宏，此時，所有圖片的高度和寬度就統(tǒng)一了。
又或是：打開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)閉窗口。再運行宏
承擔因您的行為而導(dǎo)致的法律責任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。