WORD中图片大小统一调整宏设置方法.pdf

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

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

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

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

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

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

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

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

宏命令将图片批量替换成统一大小步骤：1.点击【文件】-【选项】，在弹出的窗口中选择【自定义功能区】，勾选开发工具选项后，点击【确定】，如下图：2.会在菜单上方出现开发工具的相关功能菜单，选择【开发工具】，点击【宏】，如下图：3.点击【宏】后，弹出提示框，在宏名处输入宏名“setpicsize”点击创建按钮，如下图：4.在弹出的VBA窗口中将如下代码复制到其中，如下图：统一替换图片大小的VBA代码如下（单引号后面的内容为备注）：'1.改变图片大于14.5cm的宽度'注：高跟宽的数值单位为px,而word中的单位为cm（1px约等于0.0352cm）Sub setpicsize()Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapespicheight = ActiveDocument.InlineShapes(j).Height '高度赋值picwidth = ActiveDocument.InlineShapes(j).Width '宽度赋值If (ActiveDocument.InlineShapes(j).Width > 375 And ActiveDocument.InlineShapes(j).Width < 415) Then '判断图片宽度范围，将宽度大于13.23cm的图片，小于14.68的图片统一缩放ActiveDocument.InlineShapes(j).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中ActiveDocument.InlineShapes(j).Width = 411 '设置宽度为411px,约14.5cm ActiveDocument.InlineShapes(j).Height = picheight * (411 / picwidth) '设置图片高度,根据设置的宽度值等比例缩放图片高度ElseIf (ActiveDocument.InlineShapes(j).Width > 417) Then '判断图片宽度范围，将宽度大于14.7cm的图片统一缩放ActiveDocument.InlineShapes(j).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中ActiveDocument.InlineShapes(j).Width = 411 '设置宽度为411px,约14.5cm ActiveDocument.InlineShapes(j).Height = picheight * (411 / picwidth) '设置图片高度,根据设置的宽度值等比例缩放图片高度End IfNext jEnd Sub注意：（1）修改图片尺寸时，代码运行前需要根据实际情况进行修改图片尺寸的大小范围限制代码，图中标注处所示（2）修改图片尺寸时，需计算修改的图片的宽高值，因为图片的高跟宽的数值单位为px，而word中的单位为cm，根据每台电脑不同的分辨率，1px约等于0.0352cm （3）图片替换之前文档最好先保存副本，因为运行宏后的文档无法撤销操作，如果操作错误，只能通过关闭文档时，选择不保存后，重新打开（4）代码可用英文状态下的单上引号进行备注，删掉不影响代码的运行（5）如修改图片尺寸的代码无需修改，可直接在点击【宏】后，在弹出提示框中选择宏名“setpicsize”，点击运行按钮进行操作（6）一次性修改的文档中图片过多时，文档会未响应一小段时间，请耐心等待即可5.点击运行按钮，运行统一替换图片尺寸代码。

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中的所有图片修改成固定的并且相同的长和宽！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批量修改图片大小——按比例缩放篇这部分要说的是把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中还有更高能的技巧：那就是使用宏（VBA）来实现Word批量修改图片大小。

下面，一起来看看Word批量调整图片尺寸的操作技巧：（1）首先插入图片或直接打开已有图片的Word图文文档。

（2）直接按【Alt+F8】打开“宏”对话框，在“宏名”文本框中输入宏名称"setpicsize"，然后点击“创建”按钮。

（3）打开VBA编辑器（也可直接按【Alt+F11】快捷键），删除窗口中原有的通用代码，然后将下面的代码复制粘贴到窗口中。

Sub setpicsize() '设置图片尺寸Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 198.45 '设置图片高度为 7cmActiveDocument.InlineShapes(n).Width = 283.5 '设置图片宽度 10cmNext nEnd Sub技巧提示：代码中图片的宽度（Height ）= 170.1 '设置图片高度为 6cm ）；高度（Width） = 283.5 '设置图片宽度 10cm，是如何计算得出的。

方法为：Word中的尺寸单位默认是cm（厘米），而1cm等于28.35px（像素），由于代码中换算设置的单位是px（像素）。

所以就用尺寸高度或宽度值乘像素值。

即为：7*28.35=198.45；宽度换算方法与此相同。

（3）然后按【Ctrl + S 】键保存内容，关闭窗口。

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

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

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

与君共勉~。

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

2）插入normal工程“模块”。

3）在“模块”中粘贴下面的代码。

Sub batchResizeShape()
Dim doc As Document
Dim i As Integer
Set doc = ActiveDocument
For i = 1 To doc.InlineShapes.Count
'doc.InlineShapes
'doc.Shapes(i).ScaleHeight 0.5, msoFalse, msoScaleFromMiddle 'doc.Shapes(i).ScaleWidth 0.5, msoFalse, msoScaleFromMiddle doc.InlineShapes(i).Height = 198.15
doc.InlineShapes(i).Width = 264.45
Next i
End Sub
4）保存，返回你要统一图片大小的Word文档。

运行“工具”-“宏”-"宏命令"。

看一下结果，是不是你想要的统一图片大小。

我用的两张图一个大一个小，统一后400*300还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。

Word 批量调整图片大小、锁定纵横比、解除纵横比宏宏文件中图片统一大小调整为 5.55cm*7.4cm，大家可以根据自己的需要调整红色字部分。

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.55 * 28.35 '设置图片高度为 5.55cm （1cm等于28.35px）ActiveDocument.InlineShapes(n).Width = 7.4 * 28.35 '设置图片宽度 7.4cmNext nEnd SubSub 图片锁定纵横比() '锁定图片纵横比Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msotrue '打开纵横比锁定Next nEnd SubSub 图片解除纵横比() '解除图片纵横比Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '解除纵横比锁定Next n End Sub。

如何统一调整WORD文档中的图片尺寸新建宏1、打开WORD,Alt+F8调出宏编辑窗口2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：Word中调整图片大小的宏其中：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 160 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 120 '设置图片宽度300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 160 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 120 '设置图片宽度300px Next n End SubSub 调整图片大小() '' 调整图片大小宏'Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapesActiveDocument.InlineShapes(j).Height = 328 '设置高度（28.4像素/厘米）ActiveDocument.InlineShapes(j).Width = 457 '设置宽度（28.4像素/厘米）Next j End Sub图1然后关闭。

Word2003中批量调整图片大小的方法
1、新建一个word文档，打开。

2、工具→宏→宏（或直接按Alt+F8）打开宏编辑器，如图：
3、在宏名下面的输入框中输入宏名setpicsize，如图：
4、点击创建按键，在弹出的脚本编辑器中输入以下代码（可复制粘贴），如图：
附代码：
Sub setpicsize()
'批量设置图片大小
Dim j '自定义变量j，用以计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为InlineShapes ActiveDocument.InlineShapes(j).Height = 102.024 '设置高度
ActiveDocument.InlineShapes(j).Width = 82.4694 '设置宽度
Next j
End Sub
5、点击保存。

6、回到word文档，插入你要调整大小的所有图片。

7、工具→宏→宏（或直接按Alt+F8）打开宏编辑器，如图：
8、选中宏名setpicsize，点击运行，就可以将word文档中所有的图片都调整为代码中所设
定的宽度和高度了。

注意：1、如要将照片调整为其它大小，只用改写代码中的高度和宽度的数据。

2、厘米与像素的坦率为：1厘米=28.34像素。

批量调整WORD图片大小教程今天编辑一份WORD文档，里面有很多图片，需要将里面的图片调整为固定大小，一般操作方法是右键点击图片，然后再点击大小按钮弹出大小菜单，修改高度和宽度数值即可。

但是文档里面图片太多，这样一张一张的修改，会让人崩溃。

下面介绍批量调整图片大小的方法。

打开WORD文档后，按Alt+F8进入宏的界面，如下图所示，输入一个宏的名字，这里宏名为调整图片大小，单击“创建”进入宏编辑器，进行宏编辑界面以后，将里面的代码全部删掉，然后复制如下代码并保存Sub 调整图片大小() '调整图片大小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 Sub宏保存以后，将宏编辑界面关闭。

返回到WORD文档，再次按Alt+F8进入宏的界面，如下图所示这次点击选中调整图片大小的宏，然后点击运行，就开始自动调整图片大小了。

如果文档里面图片较多，执行的时间会长一些。

另外宏代码里面的高度和宽度数值可以自己按需要进行修改。

另外再送一个批量按比例缩放图片的宏，制作方法和上面的一样。

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 编辑器。

工具Q 〕 表格窗口⑭ 兆助徂J Xdabt TDFQB3 M&t ■砒 注粹©共享工作区如… 修订（I ） Ctrl+Shi f t+E 比簸并合并文措如… 保护主梢（£）,•.联机协作僵J信函与邯件（1）2）插入normal 工程"模块”。

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