批量調(diào)整WORD圖片大小教程

1、批量調(diào)整WOR圖片大小教程今天編輯一份 WOR文檔，里面有很多圖片，需要將里面的圖片調(diào)整為固定大小，一般操作 方法是右鍵點(diǎn)擊圖片，然后再點(diǎn)擊大小按鈕-J3站站曰JI 1覽5猶入頓洋蝕.文字子察葩H打竊吸置圏用式彈出大小菜單，修改高度和寬度數(shù)值即可。但是文檔里面圖片太多，這樣一張一張的修改，會(huì)讓人崩潰。 下面介紹批量調(diào)整圖片大小的方法。打開(kāi)WOR文檔后，按Alt+F8進(jìn)入宏的界面，如下圖所示,宏名(N):扃的位冒3 |所有的活動(dòng)模檢和立檔2說(shuō)期Q)：輸入一個(gè)宏的名字，這里宏名為調(diào)整圖片大小，單擊“創(chuàng)建”進(jìn)入宏編輯器,A； Svrval _ Jeiriacros G代碼）Snh調(diào)整圄片大少（凋整閔

2、片大小On Error Rsuni Nxt J 霧昭錯(cuò)淇Far it = 1 To ActivtD*cumt. ItJiniShir-es. Count InlinfeShap4s 英型E片 ActiveDunieMr IidintShapss He i ght = 400 片蒼度肯 QUpxActivfrDfrcuritntWidth = 300 設(shè)置團(tuán)片寬滾 30咗比ifeict nTcnr Ji - 1 Tq Acti veDpcuni! Sh電pg呂Sb呷陸 姿型閨片 ActivDocLFiiutr Shapas Ih）. JIight = 400 J iSHE片高度為電COjHtAc

3、tie-Docuieat- Shapes （p）. idth = 300，謖置團(tuán)片寬.亶 3J0y3Nest nEn J. SuL進(jìn)行宏編輯界面以后，將里面的代碼全部刪掉，然后復(fù)制如下代碼并保存Sub調(diào)整圖片大小()調(diào)整圖片大小Dim n 圖片個(gè)數(shù)On Error Resume Next 忽略錯(cuò)誤For n = 1 To ActiveDocume nt.ln li neSh apes.Cou nt I nli neShapes類型圖片ActiveDocume nt.ln li neShapes( n).Height = 400 設(shè)置圖片高度為 400pxActiveDocume nt.l nl

4、i neShapes( n).Width = 300 設(shè)置圖片寬度 300pxNext nFor n = 1 To ActiveDocume nt.Shapes.Cou nt Shapes類型圖片ActiveDocume nt.Shapes( n).Height = 400 設(shè)置圖片高度為 400pxActiveDocume nt.Shapes( n).Width = 300 設(shè)置圖片寬度 300pxNext nEnd Sub宏保存以后，將宏編輯界面關(guān)閉。返回到WOR文檔，再次按Alt+F8進(jìn)入宏的界面，如下圖所示宏志召(N):憲的位畳通;|所有的活動(dòng)模檢和立檔3說(shuō)期Q)：取消|這次點(diǎn)擊選中調(diào)

5、整圖片大小的宏，然后點(diǎn)擊運(yùn)行，就開(kāi)始自動(dòng)調(diào)整圖片大小了 如果文檔里面圖片較多，執(zhí)行的時(shí)間會(huì)長(zhǎng)一些。另外宏代碼里面的高度和寬度 數(shù)值可以自己按需要進(jìn)行修改。另外再送一個(gè)批量按比例縮放圖片的宏，制作方法和上面的一樣。Sub 圖片按比例縮放 () 圖片按比例縮放Dim n 圖片個(gè)數(shù)Dim picwidthDim picheightOn Error Resume Next 忽略錯(cuò)誤類型圖片設(shè)置高度為 1.1 倍設(shè)置寬度為 1.1 倍For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes picheight = ActiveDocument

6、.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 Next n類型圖片設(shè)置高度為 1.1 倍設(shè)置寬度為 1.1 倍For n = 1 To ActiveDocument.Shapes.Count Shapes picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument