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

1、打开word，工具宏宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() 设置图片大小Dim n 图片个数On Error Resume Next 忽略错误For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count Shapes类型图片ActiveDocument.Shapes(n).Height = 400 设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 设置图片宽度 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这里的数字你自己改大小】设定的高度是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）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() 设置图片大小Dim n 图片个数On Error Resume Next 忽略错误For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count Shapes类型图片ActiveDocument.Shapes(n).Height = 400 设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 设置图片宽度 300pxNext nEnd Sub注：px 是像素 1厘米为25px,可以自行按照自己的实际情况修改代码中像素大小3、返回word，工具宏宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）word批量修改图片大小按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：Sub setpicsize() 设置图片大小Dim n 图片个数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 设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 设置宽度为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 设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 设置宽度为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）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存color=#0000ffsize=13pxSub/size/colorsize=13px setpicsize() color=#339966color=#008000设置图片大小/color/colorcolor=#0000ffcolor=#0000ffDim/colorcolor=#000000 n/colorcolor=#008000图片个数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设置图片高度为 400px/colorActiveDocument.InlineShapes(n).Width = 300 color=#008000设置图片宽度 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设置图片高度为 400px/colorActiveDocument.Shapes(n).Width = 300 color=#008000设置图片宽度 300px/colorcolor=#0000ffNext/color ncolor=#0000ffEnd Sub/color/size3、返回word，工具宏宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）word批量修改图片大小按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：color=#0000ffsize=13pxSub/size/colorsize=13px setpicsize() color=#339966color=#008000设置图片大小/color/colorcolor=#0000ffcolor=#0000ffcolor=#0000ffDim/colorcolor=#000000 n/colorcolor=#008000图片个数/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设置高度为1.1倍/colorActiveDocument.InlineShapes(n).Width = picwidth * 1.1 color=#008000设置宽度为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设置高度为1.1倍/colorActiveDocument.Shapes(n).Width = picwidth * 1.1 color=#008000设置宽度为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 由 游客 创建Dim n 图片个数On Error Resume Next 忽略错误For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 600 设置图片高度为 600pxActiveDocument.InlineShapes(n).Width = 400 设置图片宽度 400pxNext nFor n = 1 To ActiveDocument.Shapes.Count Shapes类型图片ActiveDocument.Shapes(n).Height = 600 设置图片高度为 600pxActiveDocument.Shapes(n).Width = 400 设置图片宽度 400pxNext nDim i As IntegerFor i = 1 To ActiveDocument.Inlin