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

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

我們先來模擬小伙伴說的問題，打開一份空白的Word文檔，從插入選項卡中找到圖片所在文件夾，全選圖片，批量插入到文檔中。因為照片尺寸不統(tǒng)一，所以每頁存放圖片數(shù)量也是不一樣的。

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

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

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

操作方法如下：

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

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

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

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

Dim n '圖片個數(shù)

On Error Resume Next '忽略錯誤

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 '圖片個數(shù)

Dim picwidth

Dim picheight

On Error Resume Next '忽略錯誤

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ù)自己的實際需求靈活調(diào)整，比如等比例放大或者縮小圖片都是可以的。

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

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

做Word大神，快速提升工作效率，部落窩教育《Word極速貫通班》直播課全心為你！

學習交流請加微信：hclhclsc進微信學習群。

相關(guān)推薦：

如何寫好一篇合格的請示

一鍵快速清除文本格式的Word技巧！

Word公文寫作①“會議通知”改稿案例解析

Word快速制作年會領(lǐng)導座位表

版權(quán)申明：

作者：花花；部落窩教育享有專有使用權(quán)，若需轉(zhuǎn)載請聯(lián)系部落窩教育。