更改当前图片大小位置的宏代码
宏命令将图片批量替换成统一大小
宏命令将图片批量替换成统一大小步骤：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中修改图片尺寸的方法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编程宏批量修改图片大小
word批量修改图片大小借助word的宏功能可以很好完成这一任务,无论word里有多少图片,很容易就在一瞬间搞定.。
文档里面有几百张图片，规格都不一样，堆在文档里面很难看。
为美化文档，将图片规范化，都设置成425x320像素大小。
手工修改每张图片很费时间也费鼠标，所以，你得好好看看以下如何做了。
打开word，按下Alt+F8，出现宏界面，为新建的宏取名为AdjustPicWidthAndHeight点击编辑按钮，输入下面红色字体标出的内容Sub AdjustPicWidthAndHeight()'' AdvertisePublishAs 宏' 将广告发布导出为 PDF 和 XPS'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 = 320 '设置图片高度为 320px ActiveDocument.InlineShapes(n).Width = 425 '设置图片宽度 425pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320pxActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425pxNext nEnd Subword批量修改图片大小——固定长宽篇这部分要说的是把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 '设置图片高度为 400px ActiveDocument.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 * 0.8 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 0.8 '设置宽度为1.1倍Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight *0.8 '设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 0.8 '设置宽度为1.1倍Next nEnd Sub。
如何统一调整WORD文档中的图片尺寸
如何统一调整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然后关闭。
[Word中利用宏批量修改图片大小的操作技巧]宏定义比较大小
![[Word中利用宏批量修改图片大小的操作技巧]宏定义比较大小](https://img.taocdn.com/s3/m/0b60f587bdeb19e8b8f67c1cfad6195f312be8e9.png)
[Word中利用宏批量修改图片大小的操作技巧]宏定义比
较大小
大家看看我是怎么样利用宏批量修改word中所有图片大小，
先翻开存有图片的word。
在翻开的文档中，选择在“工具”菜单中选择“宏”--“宏”。
随后弹出“宏”对话框，在宏名中输入etpicize。
宏名起好了，单击“创立”按钮进入ViualBaic编辑器，输入如下代码
ubetpicize()'设置图片大小Dimn'图片个数OnErrorReumeNe某t'忽略错误Forn=1ToActiveDocument.Inlinehape.Count'Inlinehape类型图片ActiveDocument.Inlinehape(n).Height=400'设置图片高度为400p某ActiveDocument.Inlinehape(n).Width=300'设置图片宽度300p某Ne某tnForn=1ToActiveDocument.hape.Count'hape类型图片ActiveDocument.hape(n).Height=400'设置图片高度为400p某ActiveDocument.hape(n).Width=300'设置图片宽度300p某Ne某tnEndub
关闭入ViualBaic编辑器，返回word，重新选择“工具”--“宏”--“宏”(或者直接按Alt+F8)，再次进入宏的界面，在弹出的宏名中选择"etpicize",最后点击“运行”---确认即可快速地批量修改word中所有图片大小，注意这里把图片大小都修改成Height=400，Width=300，这个规格大家可以需要改变的~。
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。