如何批量修改word圖片大小

1、批量修改word圖片大小固定長寬篇1這兩天在整文檔，提交過來的文檔里面有幾百張圖片，規(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 和 XPS'Sub setpi

2、csize() '設(shè)置圖片大小Dim n '圖片個(gè)數(shù)On Error Resume Next '忽略錯(cuò)誤For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不鎖定圖片的縱橫比ActiveDocument.InlineShapes(n).Height = 320 '設(shè)置圖片高度為 320pxActiveDocument.InlineShapes(n).Wid

3、th = 425 '設(shè)置圖片寬度 425pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不鎖定圖片的縱橫比ActiveDocument.Shapes(n).Height = 320 '設(shè)置圖片高度為 320pxActiveDocument.Shapes(n).Width = 425 '設(shè)置圖片寬度 425pxNext nEnd Sub固定長寬篇2這部分要說的是把wor

4、d中的所有圖片修改成固定的并且相同的長和寬！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ò)誤For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片ActiveDocument.InlineShapes(n).Height

5、 = 400 '設(shè)置圖片高度為 400pxActiveDocument.InlineShapes(n).Width = 300 '設(shè)置圖片寬度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片ActiveDocument.Shapes(n).Height = 400 '設(shè)置圖片高度為 400pxActiveDocument.Shapes(n).Width = 300 '設(shè)置圖片寬度 300pxNext nEnd Sub3、返回word，工具宏宏（或者直接按Alt+F8），再次進(jìn)

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

7、apes(n).Heightpicwidth = ActiveDocument.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 ActiveDocument.Shapes.Count 'Shapes類型圖片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n)