word批量修改圖片大小格式方框.docx

1、打開word，工具宏宏（或者直接按Alt+F8）進(jìn)入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行！宏名起好了，單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器，輸入如下代碼并保存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類型圖片ActiveDocument.Shapes(n).Height = 400 設(shè)置圖片高度為 400pxActiveDocument.Shapes(n).Width = 300 設(shè)置圖片寬度 300pxNext nEnd Sub這樣就可以了！ 2.按alt+F11。然后在project右鍵插入模塊，然后粘貼Sub Macro()Mywidth = 4.13Myheigth = 5.69For Each iShape In ActiveDocument.InlineShapesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub再按F5，就行了。 【Mywidth = 4.13Myheigth = 5.69這里的數(shù)字你自己改大小】設(shè)定的高度是5.48cmSub Macro()Mywidth = 4.13Myheigth = 5.48For Each iShape In ActiveDocument.InlineShapesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub批量改word文件中圖大小word批量修改圖片大小固定長寬篇這部分要說的是把word中的所有圖片修改成固定的并且相同的長和寬！打開word，工具宏宏（或者直接按Alt+F8）進(jìn)入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行！宏名起好了，單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器，輸入如下代碼并保存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類型圖片ActiveDocument.Shapes(n).Height = 400 設(shè)置圖片高度為 400pxActiveDocument.Shapes(n).Width = 300 設(shè)置圖片寬度 300pxNext nEnd Sub注：px 是像素 1厘米為25px,可以自行按照自己的實際情況修改代碼中像素大小3、返回word，工具宏宏（或者直接按Alt+F8），再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊“運(yùn)行”按鈕，就可以了?。▓D片多時，可能會花一些時間）word批量修改圖片大小按比例縮放篇這部分要說的是把word中的所有圖片按比例縮放！具體操作同上，只是代碼部分稍做修改，代碼如下：Sub setpicsize() 設(shè)置圖片大小Dim n 圖片個數(shù)Dim picwidthDim 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 * 1.1 設(shè)置高度為1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 設(shè)置寬度為1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count Shapes類型圖片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 設(shè)置高度為1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 設(shè)置寬度為1.1倍Next nEnd SubWORD中如何：1、批量插入圖片；2、批量修改圖片大??；3、使圖片在WORD中的位置相同。Mywidth = 7 需要的圖片寬度（厘米）Myheigth = 5 需要的圖片高度（厘米）=Dim myPic As InlineShapeFor Each myPic In ActiveDocument.InlineShapesWith myPic.SelectSelect Case .TypeCase wdInlineShapePicture.Height = 28.345 * Myheigth.Width = 28.345 * MywidthSelection.ParagraphFormat.Alignment =wdAlignParagraphCenterSelection.CutSelection.PasteSpecial Link:=False,DataType:=15, Placement:=wdInLine, DisplayAsIcon:=FalseEnd SelectEnd WithNextEnd Subword批量修改圖片大小固定長寬篇這部分要說的是把word中的所有圖片修改成固定的并且相同的長和寬！1、打開word，工具宏宏（或者直接按Alt+F8）進(jìn)入宏的界面，如下面所示，輸入一個宏名，宏名自己起，能記住就行！2、宏名起好了，單擊“創(chuàng)建”進(jìn)入Visual Basic 編輯器，輸入如下代碼并保存color=#0000ffsize=13pxSub/size/colorsize=13px setpicsize() color=#339966color=#008000設(shè)置圖片大小/color/colorcolor=#0000ffcolor=#0000ffDim/colorcolor=#000000 n/colorcolor=#008000圖片個數(shù)color=#0000ffOn Error Resume Next color=#339966color=#008000忽略錯誤/color/color/color/color/colorcolor=#0000ffFor /colorn = 1 color=#0000ffTo/color ActiveDocument.InlineShapes.Count color=#008000InlineShapes類型圖片/colorActiveDocument.InlineShapes(n).Height = 400 color=#008000設(shè)置圖片高度為 400px/colorActiveDocument.InlineShapes(n).Width = 300 color=#008000設(shè)置圖片寬度 300px/colorcolor=#0000ffNext/color n/sizesize=13pxcolor=#0000ffFor /colorn = 1 color=#0000ffTo/color ActiveDocument.Shapes.Count color=#008000Shapes類型圖片/colorActiveDocument.Shapes(n).Height = 400 color=#008000設(shè)置圖片高度為 400px/colorActiveDocument.Shapes(n).Width = 300 color=#008000設(shè)置圖片寬度 300px/colorcolor=#0000ffNext/color ncolor=#0000ffEnd Sub/color/size3、返回word，工具宏宏（或者直接按Alt+F8），再次進(jìn)入宏的界面，選擇剛才編輯好的宏，并單擊“運(yùn)行”按鈕，就可以了?。▓D片多時，可能會花一些時間）word批量修改圖片大小按比例縮放篇這部分要說的是把word中的所有圖片按比例縮放！具體操作同上，只是代碼部分稍做修改，代碼如下：color=#0000ffsize=13pxSub/size/colorsize=13px setpicsize() color=#339966color=#008000設(shè)置圖片大小/color/colorcolor=#0000ffcolor=#0000ffcolor=#0000ffDim/colorcolor=#000000 n/colorcolor=#008000圖片個數(shù)/color/color/colorcolor=#0000ffDim /colorpicwidthcolor=#0000ffDim/color picheightcolor=#0000ffOn Error Resume Next color=#339966color=#008000忽略錯誤/color/color/color/sizecolor=#0000ffsize=13pxFor /size/colorsize=13pxn = 1 color=#0000ffTo/color ActiveDocument.InlineShapes.Count color=#008000InlineShapes類型圖片/colorpicheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight * 1.1 color=#008000設(shè)置高度為1.1倍/colorActiveDocument.InlineShapes(n).Width = picwidth * 1.1 color=#008000設(shè)置寬度為1.1倍/colorcolor=#0000ffNext/color nFor n = 1 color=#0000ffTo/colorActiveDocument.Shapes.Count color=#008000Shapes類型圖片/colorpicheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 color=#008000設(shè)置高度為1.1倍/colorActiveDocument.Shapes(n).Width = picwidth * 1.1 color=#008000設(shè)置寬度為1.1倍/colorcolor=#0000ffNext/color n/sizecolor=#0000ffsize=13pxEnd Sub/size/colorcolor=#0000ff/color批量給圖片加邊框的方法，分享一下：Dim i As IntegerFor i = 1 To ActiveDocument.InlineShapes.CountWith ActiveDocument.InlineShapes(i)With .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderRight).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderTop).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd WithWith .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle.LineWidth = wdLineWidth100pt.Color = wdColorAutomaticEnd With.Borders.Shadow = FalseEnd WithWith Options.DefaultBorderLineStyle = wdLineStyleSingle.DefaultBorderLineWidth = wdLineWidth100pt.DefaultBorderColor = wdColorAutomaticEnd WithNext i這是我做資料用的：Sub setpicsize() setpicsize Macro 宏在 2010-7-22 由 游客 創(chuàng)建Dim n 圖片個數(shù)On Error Resume Next 忽略錯誤For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes類型圖片ActiveDocument.InlineShapes(n).Height = 600 設(shè)置圖片高度為 600pxActiveDocument.InlineShapes(n).Width = 400 設(shè)置圖片寬度 400pxNext nFor n = 1 To ActiveDocument.Shapes.Count Shapes類型圖片ActiveDocument.Shapes(n).Height = 600 設(shè)置圖片高度為 600pxActiveDocument.Shapes(n).Width = 400 設(shè)置圖片寬度 400pxNext nDim i As IntegerFor i = 1 To ActiveDocument.Inlin