Word中的圖片批量統(tǒng)一大小及同比例縮放

1、精選優(yōu)質(zhì)文檔-傾情為你奉上Word宏：Word中的圖片批量統(tǒng)一大小及同比例縮放（圖）有些時候，我們用Word來做一些圖文混排的文檔，需要正規(guī)的樣式，例如圖片大小一致。下面的方法就是告訴我們?nèi)绾蝸韺崿F(xiàn)很多的圖片統(tǒng)一大小。實現(xiàn)代碼：Subsetpicsize()設置圖片大小Dimn圖片個數(shù)OnErrorResumeNext忽略錯誤Forn=1ToActiveDocument.InlineShapes.CountInlineShapes類型圖片ActiveDocument.InlineShapes(n).Height=400設置圖片高度為400pxActiveDocument.InlineShape

2、s(n).Width=300設置圖片寬度300pxNextnForn=1ToActiveDocument.Shapes.CountShapes類型圖片ActiveDocument.Shapes(n).Height=400設置圖片高度為400pxActiveDocument.Shapes(n).Width=300設置圖片寬度300pxNextnEndSubCtrl+A 全部選擇 提示：你可先修改部分代碼，再按運行使用方法和 中介紹的一樣，把代碼復制到Visual Biscal編輯器中，再回到Word界面，運行“宏”命令。操作步驟如下：1.打開要統(tǒng)一圖片大小的Word文檔，點擊“工具”-“宏”-“

3、Visual Biscal編輯器。2）插入normal工程“模塊”。3）在“模塊”中粘貼上面的代碼。4）保存，返回你要統(tǒng)一圖片大小的Word文檔。運行“工具”-“宏”-宏命令?？匆幌陆Y(jié)果，是不是你想要的統(tǒng)一圖片大小。我用的兩張圖一個大一個小，統(tǒng)一后400*300還是很大，放在兩個頁面上，上面是25%的縮略圖，至此實現(xiàn)了統(tǒng)一大小的目標，如果你想要其它的大小，只需按代碼里的說明更改一下長寬數(shù)值即可。按比例縮放的方法和上面的是一樣的，只是代碼變化一下，過程就不熬述。VBA代碼如下：Subsetpicsize()設置圖片大小Dimn圖片個數(shù)OnErrorResumeNext忽略錯誤Forn=1ToActiveDocument.InlineShapes.CountInlineShapes類型圖片ActiveDocument.InlineShapes(n).Height=400設置圖片高度為400pxActiveDocument.InlineShapes(n).Width=300設置圖片寬度300pxNextnForn=1ToActiveDocument.Shapes.CountShapes類型圖片ActiveDocument.Shapes(n).Height=400設置圖片高度為400pxActiveDocument.Shapes(n).Width=