編按：

本文主要介紹了Word文檔使用VBA代碼批量調(diào)整圖片尺寸的方法。一起來看看吧！

哈嘍~大家好呀！

今天要跟大家分享的案例是一位小伙伴工作上遇到的問題。

我們先來模擬小伙伴說的問題，打開一份空白的Word文檔，從插入選項(xiàng)卡中找到圖片所在文件夾，全選圖片，批量插入到文檔中。因?yàn)檎掌叽绮唤y(tǒng)一，所以每頁存放圖片數(shù)量也是不一樣的。

圖片全部插入到文檔中的效果如下圖。

大家可能會想到使用F4鍵進(jìn)行重復(fù)設(shè)置圖片大小。先選中一個(gè)圖片，點(diǎn)擊鼠標(biāo)右鍵設(shè)置圖片大小和位置，取消鎖定縱橫比，高度和寬度設(shè)定一個(gè)自己期望的值。接著依次選中其他圖片按F4鍵就可以重復(fù)操作了（部分筆記本電腦可能需要按Fn+F4鍵）。只要你F4鍵按的快，圖片批量處理剩下的就是時(shí)間問題。

如果要設(shè)置的圖片數(shù)量不多的話，按F4鍵一定是最優(yōu)的選擇。但是小伙伴說她有一堆照片，這個(gè)一堆就非常過份了，于是我實(shí)在忍不了，站出來用VBA來批量處理了。

操作方法如下：

從【開發(fā)工具】選項(xiàng)卡中找到【Visual Basic】按鈕，單擊進(jìn)入VBE編輯器，插入模塊，將下面的VBA代碼復(fù)制、粘貼到模塊中去，最后執(zhí)行宏即可自動將文檔中所有的圖片批量設(shè)置指定大小了。

短劃線中間為VBA代碼內(nèi)容。

——————————————————————

Sub 指定圖片大小() '設(shè)置圖片大小

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

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

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片

ActiveDocument.InlineShapes(n).Height = 400 '設(shè)置圖片高度為 400px

ActiveDocument.InlineShapes(n).Width = 300 '設(shè)置圖片寬度 300px

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片

ActiveDocument.Shapes(n).Height = 400 '設(shè)置圖片高度為 400px

ActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300px

Next n

End Sub

——————————————————————

如果想讓圖片等比例縮放可以使用下面的VBA代碼來處理：

——————————————————————

Sub 等比例縮放圖片() '設(shè)置圖片大小

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

Dim picwidth

Dim picheight

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

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片

picheight = ActiveDocument.InlineShapes(n).Height

picwidth = ActiveDocument.InlineShapes(n).Width

ActiveDocument.InlineShapes(n).Height = picheight * 0.5 '設(shè)置高度為0.5倍

ActiveDocument.InlineShapes(n).Width = picwidth * 0.5 '設(shè)置寬度為0.5倍

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片

picheight = ActiveDocument.Shapes(n).Height

picwidth = ActiveDocument.Shapes(n).Width

ActiveDocument.Shapes(n).Height = picheight * 0.5 '設(shè)置高度為0.5倍

ActiveDocument.Shapes(n).Width = picwidth * 0.5 '設(shè)置寬度為0.5倍

Next n

End Sub

——————————————————————

操作方法如下：

等比例縮放的代碼和前面指定尺寸代碼有什么區(qū)別呢？

以演示素材中的西瓜圖片尺寸為例，調(diào)整后的圖片尺寸是調(diào)整前的0.5倍。因此，這里大家可以根據(jù)自己的實(shí)際需求靈活調(diào)整，比如等比例放大或者縮小圖片都是可以的。

好了，以上就是今天跟大家分享的內(nèi)容，感謝大家耐心看完，希望大家能夠喜歡，別忘了分享哦~

本期教程就到這里，我們下期再見！

Word學(xué)習(xí)交流請加QQ群：816626786