資源描述：
《如何批量修改word圖片大小》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、如何批量修改word圖片大小????這兩天在整文檔，提交過(guò)來(lái)的文檔里面有幾百?gòu)垐D片，規(guī)格都不一樣，堆在文檔里面很難看。為美化文檔，我決定將圖片規(guī)范化，都設(shè)置成425x320像素大小。手工修改每張圖片很費(fèi)時(shí)間也費(fèi)鼠標(biāo)，借助word的宏功能可以很好完成這一任務(wù)。????打開(kāi)word，按下Alt+F8，出現(xiàn)宏界面，為新建的宏取名為AdjustPicWidthAndHeight????點(diǎn)擊編輯按鈕，輸入下面紅色字體標(biāo)出的內(nèi)容SubAdjustPicWidthAndHeight()''AdvertisePublishAs宏'將廣告發(fā)布導(dǎo)出為PDF和XPS'Subsetpi
2、csize()'設(shè)置圖片大小Dimn'圖片個(gè)數(shù)OnErrorResumeNext'忽略錯(cuò)誤Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes類(lèi)型圖片ActiveDocument.InlineShapes(n).LockAspectRatio=msoFalse'不鎖定圖片的縱橫比ActiveDocument.InlineShapes(n).Height=320'設(shè)置圖片高度為320pxActiveDocument.InlineShapes(n).Width=425'設(shè)置圖片寬度425pxNextnForn=
3、1ToActiveDocument.Shapes.Count'Shapes類(lèi)型圖片ActiveDocument.InlineShapes(n).LockAspectRatio=msoFalse'不鎖定圖片的縱橫比ActiveDocument.Shapes(n).Height=320'設(shè)置圖片高度為320pxActiveDocument.Shapes(n).Width=425'設(shè)置圖片寬度425pxNextnEndSubword批量修改圖片大小——固定長(zhǎng)寬篇這部分要說(shuō)的是把word中的所有圖片修改成固定的并且相同的長(zhǎng)和寬！1、打開(kāi)word，工具－宏－宏（或者直接按
4、Alt+F8）進(jìn)入宏的界面，如下面所示，輸入一個(gè)宏名，宏名自己起，能記住就行！2、宏名起好了，單擊“創(chuàng)建”進(jìn)入VisualBasic編輯器，輸入如下代碼并保存Subsetpicsize()'設(shè)置圖片大小Dimn'圖片個(gè)數(shù)OnErrorResumeNext'忽略錯(cuò)誤Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes類(lèi)型圖片ActiveDocument.InlineShapes(n).Height=400'設(shè)置圖片高度為400pxActiveDocument.InlineShapes(n).Width=300
5、'設(shè)置圖片寬度300pxNextnForn=1ToActiveDocument.Shapes.Count'Shapes類(lèi)型圖片ActiveDocument.Shapes(n).Height=400'設(shè)置圖片高度為400pxActiveDocument.Shapes(n).Width=300'設(shè)置圖片寬度300pxNextnEndSub3、返回word，工具－宏－宏（或者直接按Alt+F8），再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊“運(yùn)行”按鈕，就可以了！（圖片多時(shí)，可能會(huì)花一些時(shí)間）word批量修改圖片大小——按比例縮放篇這部分要說(shuō)的是把word中的所有圖片
6、按比例縮放！具體操作同上，只是代碼部分稍做修改，代碼如下：Subsetpicsize()'設(shè)置圖片大小Dimn'圖片個(gè)數(shù)DimpicwidthDimpicheightOnErrorResumeNext'忽略錯(cuò)誤Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes類(lèi)型圖片picheight=ActiveDocument.InlineShapes(n).Heightpicwidth=ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n
7、).Height=picheight*0.8'設(shè)置高度為1.1倍ActiveDocument.InlineShapes(n).Width=picwidth*0.8'設(shè)置寬度為1.1倍NextnForn=1ToActiveDocument.Shapes.Count'Shapes類(lèi)型圖片picheight=ActiveDocument.Shapes(n).Heightpicwidth=ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height=picheight*0.8'設(shè)置高度為1.1倍ActiveD
8、ocument.Shap
