word中批量修改圖片大小的方法
發(fā)布時(shí)間：2012-11-09 15:30:47 作者：佚名 
我要評(píng)論
我要評(píng)論在word中,我們有時(shí)候需要批量修改圖片的大小
word中批量修改圖片大小
方法一：
這部分要說(shuō)的是把word中的所有圖片修改成固定的并且相同的長(zhǎng)和寬！
1、打開(kāi)word，工具－宏－宏（或者直接按Alt+F8）進(jìn)入宏的 界面，如下面所示，輸入一個(gè)宏名，宏名自己起，能記住就行！
2、宏名起好了，單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器，輸入如下代碼并保存
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 = 400 '設(shè)置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設(shè)置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 類(lèi)型圖片
ActiveDocument.Shapes(n).Height = 400 '設(shè)置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300px
Next n
End Sub
3、返回word，工具－宏－宏（或者直接按Alt+F8），再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊“運(yùn)行”按鈕，就可以了?。▓D片多時(shí)， 可能會(huì)花一些時(shí)間）
方法二：
1、在word中按alt+f11組合鍵,進(jìn)入VBA模式
2、在左邊的工程資源管理器中找到你的word文檔,在其上右鍵/添加/模塊
3、把下面代碼復(fù)制,粘貼進(jìn)去.
4、更改數(shù)值, 改一下寬度和高度數(shù)值(10)，點(diǎn)運(yùn)行(類(lèi)似播放按鈕.)或f5,即可設(shè)置文檔中全部圖片
Sub Macro()
Mywidth=10 ‘10為圖片寬度（厘米）
Myheigth=10 ‘10為圖片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
word批量修改圖片大小——按比例縮放篇
這部分要說(shuō)的是把word中的所有圖片按比例縮放！
具體操作同上，只是代碼部分稍做修改，代碼如下：
Sub setpicsize() '設(shè)置圖片大小
Dim n '圖片個(gè)數(shù)
Dim picwidth
Dim picheight
On Error Resume Next '忽略錯(cuò)誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 類(lèi)型圖片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '設(shè)置高度為1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '設(shè)置寬度為1.1倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類(lèi)型圖片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 1.1 '設(shè)置高度為1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 '設(shè)置寬度為1.1倍
Next n
End Sub
方法一：
這部分要說(shuō)的是把word中的所有圖片修改成固定的并且相同的長(zhǎng)和寬！
1、打開(kāi)word，工具－宏－宏（或者直接按Alt+F8）進(jìn)入宏的 界面，如下面所示，輸入一個(gè)宏名，宏名自己起，能記住就行！
2、宏名起好了，單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器，輸入如下代碼并保存
復(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 = 400 '設(shè)置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設(shè)置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 類(lèi)型圖片
ActiveDocument.Shapes(n).Height = 400 '設(shè)置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300px
Next n
End Sub
3、返回word，工具－宏－宏（或者直接按Alt+F8），再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊“運(yùn)行”按鈕，就可以了?。▓D片多時(shí)， 可能會(huì)花一些時(shí)間）
方法二：
1、在word中按alt+f11組合鍵,進(jìn)入VBA模式
2、在左邊的工程資源管理器中找到你的word文檔,在其上右鍵/添加/模塊
3、把下面代碼復(fù)制,粘貼進(jìn)去.
4、更改數(shù)值, 改一下寬度和高度數(shù)值(10)，點(diǎn)運(yùn)行(類(lèi)似播放按鈕.)或f5,即可設(shè)置文檔中全部圖片
復(fù)制代碼
代碼如下:Sub Macro()
Mywidth=10 ‘10為圖片寬度（厘米）
Myheigth=10 ‘10為圖片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
word批量修改圖片大小——按比例縮放篇
這部分要說(shuō)的是把word中的所有圖片按比例縮放！
具體操作同上，只是代碼部分稍做修改，代碼如下：
復(fù)制代碼
代碼如下:Sub setpicsize() '設(shè)置圖片大小
Dim n '圖片個(gè)數(shù)
Dim picwidth
Dim picheight
On Error Resume Next '忽略錯(cuò)誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 類(lèi)型圖片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '設(shè)置高度為1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '設(shè)置寬度為1.1倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類(lèi)型圖片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 1.1 '設(shè)置高度為1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 '設(shè)置寬度為1.1倍
Next n
End Sub
相關(guān)文章
Word如何快速對(duì)齊ABCD選項(xiàng)? word試卷批量對(duì)齊ABCD的技巧
在平時(shí)使用word排版過(guò)程中，有時(shí)候我們遇到abcd選擇題選項(xiàng)上下不對(duì)齊怎么辦，非常亂，但是我們又需要對(duì)齊的效果，我們應(yīng)該怎么辦呢？2025-12-05怎樣把豎著的ABCD調(diào)整為橫一排? word選擇題abcd調(diào)整為一行顯示的技巧
選擇題abcd是豎著排列的，很占空間，想要橫排排列，該怎么操作呢？下面我們就來(lái)看看詳細(xì)教程2025-12-05自動(dòng)更正功能快速提高工作效率! word巧妙利用自動(dòng)更正功能快速錄入長(zhǎng)文
在Word中輸入內(nèi)容時(shí)，你是否曾為頻繁輸入公司名字等長(zhǎng)文本而煩惱？但有了Word的文本自動(dòng)更正功能，這一切變得簡(jiǎn)單起來(lái),你只需輸入“萬(wàn)達(dá)”等簡(jiǎn)短詞匯，系統(tǒng)便能自動(dòng)為你補(bǔ)2025-11-01deepseek復(fù)制粘貼亂碼咋辦? word粘貼出現(xiàn)很多Markdown格式標(biāo)記符號(hào)解決
你有沒(méi)有遇到過(guò)，用 DeepSeek 生成的文字，復(fù)制后粘貼，總會(huì)出現(xiàn)一堆奇怪的符號(hào)，比如“*#-”，還得一個(gè)一個(gè)刪，特別麻煩，下面我們就來(lái)看看解決辦法2025-08-19論文交叉引用多個(gè)文獻(xiàn)怎么辦? word交叉引用多篇連續(xù)文獻(xiàn)的技巧
通過(guò)word文檔連續(xù)交叉引用多個(gè)參考文獻(xiàn)，具體分為引用連續(xù)文獻(xiàn)和不連續(xù)文獻(xiàn)兩種情況，該怎么操作呢？下面我們就來(lái)看看詳細(xì)教程2025-06-28word怎么單獨(dú)導(dǎo)出一頁(yè)? word導(dǎo)出部分頁(yè)的技巧
在編輯Word文檔時(shí)，有時(shí)我們只需要導(dǎo)出其中的部分頁(yè)面，而不是整個(gè)文檔，下面將介紹如何在Word中導(dǎo)出部分頁(yè)面2025-04-14問(wèn)卷星怎么轉(zhuǎn)換成word文檔? 問(wèn)卷星問(wèn)卷調(diào)查導(dǎo)出成word的技巧
在日常工作中，我們經(jīng)常需要將問(wèn)卷星上的問(wèn)卷內(nèi)容導(dǎo)出為Word格式，以便整理和分析數(shù)據(jù)，以下是三種簡(jiǎn)單的操作方法2025-04-14word文檔一整頁(yè)怎么截屏? word文檔截圖截一張全的圖片技巧
在Word文檔中想將一整頁(yè)截屏下來(lái)，可以通過(guò)使用鍵盤(pán)中的Print Screen鍵和Word自帶的截屏功能等多種方法截圖，詳細(xì)如下2025-04-14word開(kāi)發(fā)工具怎么調(diào)出來(lái)? word工具欄添加開(kāi)發(fā)工具的教程
許多用戶(hù)在使用Word時(shí)，可能會(huì)發(fā)現(xiàn)菜單欄中缺少了“開(kāi)發(fā)者工具”這一重要選項(xiàng)，這無(wú)疑限制了Word的某些高級(jí)功能應(yīng)用，詳細(xì)請(qǐng)看下文介紹2025-04-14Word文本框中的數(shù)字和英文字母如何進(jìn)行豎排? word文檔排版技巧
用Word進(jìn)行排版成為我們辦公中的主要方式，偶爾我們也可能會(huì)讓文字豎著排版，讓文字豎著排版我們都知道怎么操作，但是如何讓英文字母和數(shù)字也縱向顯示呢？詳細(xì)請(qǐng)看下文介紹2025-03-25
