Word采用宏命令批量调整照片大小方法
Word采用宏命令批量调整照片大小方法
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图片大小和比例的宏
设定单个图片大小的宏：Sub 宏5()Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横比锁定Dim h!, w!h = Selection.InlineShapes(1).Heightw = Selection.InlineShapes(1).WidthSelection.InlineShapes(1).Height = 627 '设置图片高度为627px Selection.InlineShapes(1).Width = 407 '设置图片宽度407pxEnd Sub设定单个图片比例的宏：Sub 宏3()Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横比锁定Dim h!, w!h = Selection.InlineShapes(1).Heightw = Selection.InlineShapes(1).WidthSelection.InlineShapes(1).Height = h * 1.25 '设置图片高度比例为125%Selection.InlineShapes(1).Width = w * 0.77 '设置图片宽度比例为77% End Sub批量设定图片大小的宏：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片Selection.InlineShapes(n).LockAspectRatio = msoFalse ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度300px Next nEnd Sub批量设定图片比例的宏Sub 宏1()Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse picheight = ActiveDocument.InlineShapes(n).Heightpicwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.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类型图片Selection.InlineShapes(n).LockAspectRatio = msoFalse picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEnd Sub。
批量设置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批量修改图片大小——固定长宽篇这部分要说的是把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 SubSub 图片修改() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 153.72 '设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 204.68 '设置图片宽度 300px Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 153.72 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 204.68 '设置图片宽度 300pxNext nEnd Sub。
成批修改图片大小法
成批修改图片法WORD中方法一用WORD的宏功能可以实现这一功能。
宏是一系列Word 命令和指令，这些命令和指令组合在一起，形成了一个单独的命令，以实现任务执行的自动化。
首先，单击选定一张要改变尺寸的图片，并且勾选“视图/工具栏/图片”。
然后执行：“工具（菜单）/宏/录制新宏”命令。
在弹出的对话框中，选择将宏保存在“工具栏”，然后在弹出的“命令”选项卡中，将新建的宏命令拖到工具栏上松开（工具栏上会出现宏命令按钮），点击“关闭”，会出现一个录制宏的工具条，这时就可以录制宏了。
点击图片工具栏“设置图片格式”按钮，出现“设置图片格式对话框”，点“大小”选项卡，设置好图片的尺寸。
再点“工具（菜单）/宏/停止录制”命令宏就录制好了。
用的时候，单击选定图片，再点拖放到工具栏中宏命令就可以了。
WORD中的方法二用宏可以轻松完成：Sub FormatPics()Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapesIf iSha.Type = wdInlineShapePicture TheniSha.LockAspectRatio = msoFalse '不锁定纵横比iSha.Width = CentimetersToPoints(5) '宽5CMiSha.Height = CentimetersToPoints(5) '高5CMEnd IfNextEnd Subphotoshop软件photoshop软件中有一项功能就是动作（Actions）在面版中可以看见，首先打开photoshop，再打开你想修改的所有照片（一部分也可以），重点：（一）、在Action面版中不难发现有红色圆点（记录）；（二）、先记录你想完成的各项任务，然后按停止键；（三）、按箭头键就可以完成批处理任务了。
你不妨好好练习这个命令，效果不错，也可以帮你不少的忙。
如何在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图片大小教程
批量调整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中的图片尺寸
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 编辑器。
工具Q 〕 表格窗口⑭ 兆助徂J Xdabt TDFQB3 M&t ■砒 注粹©共享工作区如… 修订（I ） Ctrl+Shi f t+E 比簸并合并文措如… 保护主梢（£）,•.联机协作僵J信函与邯件（1）2）插入normal 工程"模块”。
拼写和谩法窈一 一. 信息检素（M ）. . - A1L+单击 谱舌田） 字数恭计地），一. 自动第写摘腰（Jp.-.语音始FT J n lift 寻；1。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Word采用宏命令批量调整照片大小方法
1.点击“视图”菜单，找到“宏”。
点击“录制宏”，进入“录制宏”操作面板后，为宏定义一个名字，之后点击“确定”按钮。
2.再次找到“宏”，点击“停止录制”。
3.点击“查看宏”，选择定义好的宏的名字，点击右侧的“编辑”按钮。
4.进入VB编辑器后，输入如下命令后，点击“保存”。
5.若照片有不同的大小要求，可在命令中的“（）”内调整照片的宽度及高度。
6.将照片批量插入到WORD文档中，要求照片必须为“嵌入式”。
7.点击“宏”，进入操作面板后点击“运行”按钮，宏命令就得到了
执行，插入到文档中的图片就会按照在宏命令中设置的大小进行批量调整。