如何批量修改Word中圖片大小和縮放比例的方法介紹

最近小編遇到一個問題:需要將一篇word文檔中的所有圖片全部縮小比例。一張張改太麻煩了。于是從網(wǎng)上搜羅了一下,還真找到了解決辦法。需要注意的地方 就是注意厘米與像素的換算關(guān)系。一般情況下1厘米=28px 。這個換算關(guān)系其實可以用計算器計算出來。計算公式為圖片改變之后的像素除以改變之后圖片的大小厘米。
固定長寬篇
這部分要說的是把word中的所有圖片修改成固定的并且相同的長和寬!
1、打開word,工具-宏-宏(或者直接按Alt+F8)進(jìn)入宏的界面,如下面所示,輸入一個宏名,宏名自己起,能記住就行!
2、宏名起好了,單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器,輸入如下代碼并保存
Sub setpicsize() '設(shè)置圖片大小
Dim n '圖片個數(shù)
On Error Resume Next '忽略錯誤
Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Height = 400 '設(shè)置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設(shè)置圖片寬度 300px
Nextn
Forn = 1 ToActiveDocument.Shapes.Count 'Shapes類型圖片
ActiveDocument.Shapes(n).Height = 400 '設(shè)置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300px
Nextn
End Sub
3、返回word,工具-宏-宏(或者直接按Alt+F8),再次進(jìn)入宏的界面,選擇剛才編輯好的宏,并單擊“運行”按鈕,就可以了!(圖片多時,可能會花一些時間)
按比例縮放篇
這部分要說的是把word中的所有圖片按比例縮放!
具體操作同上,只是代碼部分稍做修改,代碼如下:
Sub setpicsize() '設(shè)置圖片大小
Dim n '圖片個數(shù)
Dimpicwidth
Dimpicheight
On Error Resume Next '忽略錯誤
For n = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
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倍
Nextn
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
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倍
Nextn
End Sub
若還想使所有圖片居中對齊,可在循環(huán)中加入下面的語句:
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter
‘左對齊:wdAlignParagraphLeft
注意:這里的Shapes(InlineShapes)不僅僅是指圖片,也包含其它的,自選圖形、任意多邊形、OLE 對象、ActiveX 控件、圖片等。
相關(guān)文章
word怎么單獨導(dǎo)出一頁? word導(dǎo)出部分頁的技巧
在編輯Word文檔時,有時我們只需要導(dǎo)出其中的部分頁面,而不是整個文檔,下面將介紹如何在Word中導(dǎo)出部分頁面2025-04-14問卷星怎么轉(zhuǎn)換成word文檔? 問卷星問卷調(diào)查導(dǎo)出成word的技巧
在日常工作中,我們經(jīng)常需要將問卷星上的問卷內(nèi)容導(dǎo)出為Word格式,以便整理和分析數(shù)據(jù),以下是三種簡單的操作方法2025-04-14word文檔一整頁怎么截屏? word文檔截圖截一張全的圖片技巧
在Word文檔中想將一整頁截屏下來,可以通過使用鍵盤中的Print Screen鍵和Word自帶的截屏功能等多種方法截圖,詳細(xì)如下2025-04-14word開發(fā)工具怎么調(diào)出來? word工具欄添加開發(fā)工具的教程
許多用戶在使用Word時,可能會發(fā)現(xiàn)菜單欄中缺少了“開發(fā)者工具”這一重要選項,這無疑限制了Word的某些高級功能應(yīng)用,詳細(xì)請看下文介紹2025-04-14Word文本框中的數(shù)字和英文字母如何進(jìn)行豎排? word文檔排版技巧
用Word進(jìn)行排版成為我們辦公中的主要方式,偶爾我們也可能會讓文字豎著排版,讓文字豎著排版我們都知道怎么操作,但是如何讓英文字母和數(shù)字也縱向顯示呢?詳細(xì)請看下文介紹2025-03-25word文本框怎么對齊? word多個文本框快速批量對齊的技巧
word中有很多文本框,排列很亂,想要將所有文本框?qū)R,該怎么操作呢?下面我們就來看看詳細(xì)的教程2025-03-21word分欄后如何設(shè)置頁碼? Word同一頁分欄后的文本分別設(shè)置頁碼技巧
在使用Word進(jìn)行文檔排版時,經(jīng)常需要將文檔分欄,并且希望每欄都有不同的頁碼,這種效果在Word默認(rèn)的頁碼樣式中并不存在,需要通過手動插入域來實現(xiàn),以下是詳細(xì)步驟2025-03-13word多級列表怎么修改編號? Word多級列表各級編號格式批量修改技巧
編輯Word長文檔時,為了讓文本之間具有層次性,編號的使用必不可少,那么,對于編號,你會使用了嗎?詳細(xì)如下2025-03-13Word頁面版式設(shè)置:Word創(chuàng)建多級列表常見問題解決辦法
你是否在設(shè)置多級列表時遇到了編號問題?今天來分享創(chuàng)建多級列表的常見問題,別擔(dān)心,這里為你提供全面的解決方案2025-03-13word文檔怎么鎖定排版? 輕松鎖定你的精心布局防止排版錯亂
在 Word 文檔中鎖定排版,防止他人隨意更改格式,可嘗試以下兩種方法,輕松鎖定你的精心布局,詳細(xì)如下文所屬2025-03-11