word宏批量修改圖片大小(共6頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上word批量修改圖片大小這個要用到VBA的，打開你的文檔后，按Alt+F11,在左邊Porject下找到ThisDocument，右鍵插入模塊，貼上下面的Sub Macro()For Each iShape In ActiveDocument.InlineShapesiShape.Height = iShape.Height * 0.25iShape.Width = iShape.Width * 0.25Next iShapeEnd Sub按F5運(yùn)行一次就可以了。提問者評價(jià)謝謝你啊!你太強(qiáng)了!用宏可以輕松完成：Sub FormatPics() Dim iSha As

2、InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse 不鎖定 iSha.Width = CentimetersToPoints(5) 寬5CM iSha.Height = CentimetersToPoints(5) 高5CM End If NextEnd Subword批量修改圖片大小借助word的宏功能可以很好完成這一任務(wù),無論word里有多少圖片,很容易就在一瞬間搞定.。文檔里面有幾百

3、張圖片，規(guī)格都不一樣，堆在文檔里面很難看。為美化文檔，將圖片規(guī)范化，都設(shè)置成425x320像素大小。手工修改每張圖片很費(fèi)時(shí)間也費(fèi)鼠標(biāo)，所以，你得好好看看以下如何做了。打開，按下Alt+F8，出現(xiàn)宏界面，為新建的宏取名為AdjustPicWidthAndHeight點(diǎn)擊編輯按鈕，輸入下面紅色字體標(biāo)出的內(nèi)容Sub AdjustPicWidthAndHeight() AdvertisePublishAs 宏 將廣告發(fā)布導(dǎo)出為 PDF 和 XPSSub setpicsize() 設(shè)置圖片大小Dim n 圖片個數(shù)On Error Resume Next 忽略錯誤For n = 1 To ActiveDo

4、cument.InlineShapes.Count InlineShapes類型圖片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse 不鎖定圖片的縱橫比ActiveDocument.InlineShapes(n).Height = 320 設(shè)置圖片高度為 320pxActiveDocument.InlineShapes(n).Width = 425 設(shè)置圖片寬度 425pxNext nFor n = 1 To ActiveDocument.Shapes.Count Shapes類型圖片ActiveDocument.InlineS

5、hapes(n).LockAspectRatio = msoFalse 不鎖定圖片的縱橫比ActiveDocument.Shapes(n).Height = 320 設(shè)置圖片高度為 320pxActiveDocument.Shapes(n).Width = 425 設(shè)置圖片寬度 425pxNext nEnd Subword批量修改圖片大小固定長寬篇這部分要說的是把word中的所有圖片修改成固定的并且相同的長和寬！1、打開word，工具宏宏（或者直接按Alt+F8）進(jìn)入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行！2、宏名起好了，單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器，輸

6、入如下代碼并保存Sub setpicsize() 設(shè)置圖片大小Dim n 圖片個數(shù)On Error Resume Next 忽略錯誤For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes類型圖片ActiveDocument.InlineShapes(n).Height = 400 設(shè)置圖片高度為 400pxActiveDocument.InlineShapes(n).Width = 300 設(shè)置圖片寬度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count Shapes類型圖片Ac

7、tiveDocument.Shapes(n).Height = 400 設(shè)置圖片高度為 400pxActiveDocument.Shapes(n).Width = 300 設(shè)置圖片寬度 300pxNext nEnd Sub3、返回word，工具宏宏（或者直接按Alt+F8），再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊“運(yùn)行”按鈕，就可以了?。▓D片多時(shí)，可能會花一些時(shí)間）word批量修改圖片大小按比例縮放篇這部分要說的是把word中的所有圖片按比例縮放！具體操作同上，只是代碼部分稍做修改，代碼如下：Sub setpicsize() 設(shè)置圖片大小Dim n 圖片個數(shù)Dim picwidthDim

8、 picheightOn Error Resume Next 忽略錯誤For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes類型圖片picheight = ActiveDocument.InlineShapes(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).WidthAc