批量修改word圖片大小

1、如何批量修改word圖片大小這兩天在整文檔，提交過來的文檔里面有幾百張圖片，規(guī)格都不一樣，堆在文檔里面很難看。為美化文檔，我決定將圖片規(guī)范化，都設(shè)置成425x320像素大小。手工修改每張圖片很費(fèi)時(shí)間也費(fèi)鼠標(biāo)，借助word的宏功能可以很好完成這一任務(wù)。打開word，按下Alt+F8，出現(xiàn)宏界面，為新建的宏取名為AdjustPicWidthAndHeight點(diǎn)擊編輯按鈕，輸入下面紅色字體標(biāo)出的內(nèi)容Sub AdjustPicWidthAndHeight() AdvertisePublishAs 宏 將廣告發(fā)布導(dǎo)出為 PDF 和 XPSSub setpicsize() 設(shè)置圖片大小Dim n 圖片個(gè)數(shù)

2、On Error Resume Next 忽略錯(cuò)誤ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse 不鎖定圖片的縱橫比ActiveDocument.InlineShapes(n).Height = 320 設(shè)置圖片高度為 320pxActiveDocument.InlineShapes(n).Width = 425 設(shè)置圖片寬度 425pxNext nActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse 不鎖定圖片的縱橫比ActiveDocument.Shapes(n

3、).Height = 320 設(shè)置圖片高度為 320pxActiveDocument.Shapes(n).Width = 425 設(shè)置圖片寬度 425pxNext nEnd Subword批量修改圖片大小固定長寬篇這部分要說的是把word中的所有圖片修改成固定的并且相同的長和寬！1、打開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ò)誤Fo

4、r n = 1 ToInlineShapes類型圖片ActiveDocument.InlineShapes(n).Height = 400 設(shè)置圖片高度為 400pxActiveDocument.InlineShapes(n).Width = 300 設(shè)置圖片寬度 300pxNext nFor n = 1 ToShapes類型圖片ActiveDocument.Shapes(n).Height = 400 設(shè)置圖片高度為 400pxActiveDocument.Shapes(n).Width = 300 設(shè)置圖片寬度 300pxNext nEnd Sub3、返回word，工具宏宏（或者直接按Al

5、t+F8），再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊“運(yùn)行”按鈕，就可以了！（圖片多時(shí)，可能會(huì)花一些時(shí)間）word批量修改圖片大小按比例縮放篇這部分要說的是把word中的所有圖片按比例縮放！具體操作同上，只是代碼部分稍做修改，代碼如下：Sub setpicsize() 設(shè)置圖片大小Dim n 圖片個(gè)數(shù)Dim picwidthDim picheightOn Error Resume Next 忽略錯(cuò)誤For n = 1 ToInlineShapes類型圖片picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDoc

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