使用宏批量处理word中的图片大小

Word采用宏命令批量调整照片大小方法

Word采用宏命令批量调整照片大小方法
Word采用宏命令批量调整照片大小方法
1.点击“视图”菜单，找到“宏”。

点击“录制宏”，进入“录制宏”操作面板后，为宏定义一个名字，之后点击“确定”按钮。

2.再次找到“宏”，点击“停止录制”。

3.点击“查看宏”，选择定义好的宏的名字，点击右侧的“编辑”按钮。

4.进入VB编辑器后，输入如下命令后，点击“保存”。

5.若照片有不同的大小要求，可在命令中的“（）”内调整照片的宽度及高度。

6.将照片批量插入到WORD文档中，要求照片必须为“嵌入式”。

7.点击“宏”，进入操作面板后点击“运行”按钮，宏命令就得到了
执行，插入到文档中的图片就会按照在宏命令中设置的大小进行批量调整。

word批量修改图片大小(精品文档)

word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入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 Sub3、返回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 Sub虽然小一的代码不是好代码，但确实能解决小一的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了，呼呼！还是弄不明白的朋友请留下你的问题和E-mail地址！。

批量调整word 图片大小

批量调整word 图片大小我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。

1、Alt+F8调出宏编辑窗口2、点创建按钮，创建新宏，setpicsize,内容如下：Sub setpicsize()'设置图片大小' 宏在2008-3-31 由hero_thm 录制'Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes ActiveDocument.InlineShapes(j).Height = 362 '设置高度ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度Next jEnd Sub3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm Sub setpicsize()'设置图片大小' 宏在2008-3-31 由hero_thm 录制'Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes If ActiveDocument.InlineShapes(j).Width > 480 ThenActiveDocument.InlineShapes(j).Width = 400 '设置宽度End IfNext jEnd Subggggggggggggggggggggggggggggggggggggg小一最近在复习高数，复习材料当然是下载的电子版的了，嘿嘿！不过~~这材料居然~~所有复杂的式子都是图片形式的，光是这样小一也就忍了，关键高数嘛~~式子会比较复杂，这些图片做的又那么小，根本看不清啊！按住Ctrl+滚轮倒是可以放大，但是这样不是很方便，而且~~小一还想打印出来呢，怎么办呢？总不能一个图片一个图片的修改吧……声明：小一下面要说的“批量修改word里的图片大小”的方法需要使用到宏，所以~~最好对VB有所了解！当然~~这不是必需的，只要跟着小一的图文教程走，不知道什么是宏，不知道什么是VB也可以！word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入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 Sub3、返回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 Sub虽然小一的代码不是好代码，但确实能解决小一的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了。

批量设置word中图片的大小

批量调整word 中图片大小一、无条件修改图片大小1、Alt+F8调出宏编辑窗口2、点创建按钮，创建新宏命名如下：setpicsize内容如下：Sub setpicsize() '设置图片大小Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes ActiveDocument.InlineShapes(j).Height = 100 '设置高度ActiveDocument.InlineShapes(j).Width = 100 '设置宽度Next jEnd Sub3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽100px，高100px二、判断条件后进行修改Sub setpicsize()'设置图片大小Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes If ActiveDocument.InlineShapes(j).Width > 480 Then '如果宽度大于480 ActiveDocument.InlineShapes(j).Width = 400 '设置宽度为400End IfNext jEnd Sub三、把word中的所有图片修改成固定并且相同的长和宽1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名可自己定义。

2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n'图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.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 Sub3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了。

word中如何将大量图片批处理统一的尺寸大小

选择工具——宏——宏(Alt+F8调出宏编辑窗口)，输入宏名——（非数字）——创建；在Sub 宏名()与End Sub之间编写如下代码：（之后单击运行即可）Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 99 '设置图片高度为99pxActiveDocument.InlineShapes(n).Width = 71 '设置图片宽度71pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 99 '设置图片高度为99pxActiveDocument.Shapes(n).Width = 71 '设置图片宽度71pxNext n我们可以尝试使用VBA完成Word文档中图片统一设置宽高：Sub 统一图片尺寸()'仅适用于嵌入式图片Dim oInlineShape As InlineShapeFor Each oInlineShape In ActiveDocument.InlineShapesWith oInlineShape.LockAspectRatio = msoFalse '不锁定纵横比.Height = MillimetersToPoints(23) '以毫米为单位设置高度.Width = MillimetersToPoints(31) '以毫米为单位设置宽度End WithNextEnd Sub如果是浮动式图形，可以使用以下方法简单实现：1、单击【绘图】工具栏右则的（工具栏选项）按钮，依次单击【添加或删除按钮】/【绘图】/【选中多个对象】命令，【选中多个对象】命令将被添加到【绘图】工具栏的最后位置。

批量处理word文档图片大小

声明：我下面要说的“批量修改word里的图片大小”的方法需要使用到宏，所以~~最好对VB有所了解！当然~~这不是必需的，只要跟着我的图文教程走，不知道什么是宏，不知道什么是VB也可以！word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 105 '设置图片高度为105px ActiveDocument.InlineShapes(n).Width = 105 '设置图片宽度105pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 105 '设置图片高度为105pxActiveDocument.Shapes(n).Width = 105 '设置图片宽度105pxNext nEnd Sub3、返回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 Sub虽然我的代码不是好代码，但确实能解决我的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了，呼呼！。

【Word技巧】-如何用宏程序批量处理图片大小

Word技巧
如何用宏程序批量处理图片大小
1、统一图片大小+解除图片纵横比限制
Sub 图片统一大小() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '解除纵横比锁定
ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为5cm（1cm 等于28.35px）
ActiveDocument.InlineShapes(n).Width = 5 * 28.35 ' 设置图片宽度5cm
Next n
End Sub
注：使用前要考虑各种特殊情况，如剪报中的logo也是会受到影响。

2、统一图片大小（不解除纵横比，可以仅限定宽或高）
Sub 统一图片大小()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(5)
iShape.Width = CentimetersToPoints(5)
Next
End Sub
以上代码直接ALT+F11 添加到宏程序中运行即可，标红部分可以自行修改。

如何在word2007中统一修改多个图片的大小

如何在word2007中统一修改多个图片的大小，使用宏1.点击视图-宏-录制宏
2.宏名中输入要创建的名称（这里输入了setpicsize）
3.点击键盘
4.此时鼠标在请按新快捷键方框中，同时按下键盘上的Ctrl+E
（关闭之后，同时按下Ctrl+E操作即可。

但偶不知怎样操作，遂进入第5步）
5.停止录制宏
6.查看宏，点击右侧编辑
7.在该窗口中编辑代码即完成宏的创建
此次统一修改图片的代码为：
sub setpicsize()
dim n
on error resume next
for n=1 to activedocument.inlineshapes.count activedocument.inlineshapes(n).height=400
activedocument.inlineshapes(n).width=300
next n
for n=1 to activedocument.inlineshapes.count
activedocument.inlineshapes(n).height=400
activedocument.inlineshapes(n).width=300
next n
end sub
作为菜鸟，借鉴了网上各位大侠的意见，总结此文档。

虽然不够权威，但尚能解决问题。

与君共勉~。

利用宏批量修改WORD中的图片尺寸

1、打开被修改文档。

2、点击工具——宏——宏
3、随便起个名字，然后点创建，注意，名字不能是数字
4、打开附件中的宏内容.txt 文件，复制其中的内容
粘贴在宏编辑器里，注意，上面的Sub abc()是你起的名字，可能不同
5、粘贴后的内容应该是这样的
6、粘贴好后，点击保存图标，保存编辑的内容
7、切换回被编辑WORD文档，打开宏命令栏，点击运行
8、如果尺寸不合适，切换回宏编辑器，修改
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
的数值，当心不要把“设置图片….”文字前面的单引号删除掉
设置好后，点击保存图标，然后切换回WORD文档打开宏命令栏运行看效果。

Word宏：Word中的图片批量统一大小及同比例缩放(图)

Word宏：Word 中的图片批量统一大小及同比例缩放(图)有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。

下面的方法就是告诉我们如何来实现很多的图片统一大小。

实现代码：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300px Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度300px Next n End Sub使用方法，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏命令。

操作步骤如下：1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal 编辑器。

拼写和谩法窈一一. 信息检素（M ）. . - A1L+单击谱舌田）字数恭计地），一. 自动第写摘腰（Jp.-.语音始FT J n lift 寻；1。