批量更改word图片大小 word文档如何批量修改图片大小

分析：由于Word不能像excel一样多选图片，所以不能多选图片后统一缩放，所以考虑可以重复多次一样动作的宏功能：

打开视图-宏-输入一个名字-创建

2.输入以下代码，注意替换内有的内容和尺寸不是下面的5cm可以直接更改。

Sub FormatPics()

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoFalse '不锁定纵横比

iSha.Width = CentimetersToPoints(5) '宽5CM

iSha.Height = CentimetersToPoints(5) '高5CM

End If

End Sub

3.宏-运行，可以直接批量缩放图片尺寸，左边为最终效果图。

word批量插入图片及批量修改大小

1、这里以WPS版本的Word为例。打开Word，在插入图片之前，先做一个设置，进入【WPS文字】-【选项】-【编辑】-【将图片插入为四周型】。

2、接下来插入图片。点击工具栏中的【插入】-【图片】-【来自文件】，在电脑中找到要插入的图片，可以按住ctrl键批量选择多张图片。

3、选择工具栏中的【图片工具】，下方可以直接输入高度和宽度进行大小调整，因为每张比例不同，所以锁定纵横比前面的勾勾要去掉。这里我们高度和宽度都输入10厘米。

4、统一大小之后的效果如图所示，这样就批量调整了图片尺寸，非常方便。点击【图片工具】调整大小设置项右下角的小方框图标，还可以做其他形式的大小调整。

5、布局设置框中选择【大小】，这里高度和宽度的调整还可以根据页面的相对值来调整，即占页面的比例，这里我们输入25%。不管哪种方式调整，只需几分钟就可以完成，还是非常高效的。

怎样批量设置word文档里图片大小

材料/工具：word2016

1、打开Word，在插入图片之前先做一个设置，进入【WPS文字】-【选项】

2、点击【编辑】-【将图片插入为四周型】。

3、点击工具栏中的【插入】-【图片】-【来自文件】

4、在电脑中找到要插入的图片，可以按住ctrl键批量选择多张图片。

5、按住Ctrl键，用鼠标选定所有图片。

6、选择工具栏中的【图片工具】，下方可以直接输入高度和宽度进行大小调整，因为每张比例不同，所以锁定纵横比前面的勾勾要去掉。

7、点击【图片工具】调整大小设置项右下角的小方框图标，还可以做其他形式的大小调整。

8、【布局】设置框中选择【大小】，这里高度和宽度的调整还可以根据页面的相对值来调整，即占页面的比例，这里我们输入25%

9、效果就如下图所示。

word2010如何批量修改图片大小？

分析：由于Word不能像excel一样多选图片，所以不能多选图片后统一缩放，所以考虑可以重复多次一样动作的宏功能：

打开视图-宏-输入一个名字-创建

2.输入以下代码，注意替换内有的内容和尺寸不是下面的5cm可以直接更改。

Sub FormatPics()

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoFalse '不锁定纵横比

iSha.Width = CentimetersToPoints(5) '宽5CM

iSha.Height = CentimetersToPoints(5) '高5CM

End If

End Sub

3.宏-运行，可以直接批量缩放图片尺寸，左边为最终效果图。

如何批量修改word图片大小

借助word的宏功能批量修改word图片大小打开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 '设置图片高度为 320pxActiveDocument.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中的所有图片修改成固定的并且相同的长和宽！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），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！具体操作同上，只是代码部分稍做修改，代码如下：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里批量设置插入图片大小？

你可以选中其中任意一张，把图片的大小设置为3或4厘米，然后选中剩下所有的图片，Ctrl+Y，就可以把所有的图片更改为3或4厘米，你可以试一试

word文档如何批量修改图片大小

word文档批量修改图片大小步骤：

1
点击左上角wps文档的标记找到文档设置的选项，进行基本功能的设置。
2
需要设置的是对编辑工具栏下方的图片插入默认形式，调整为四周型，系统默认的是嵌入类型。设置完成点击确认。
3
然后是选中需要统一调整的图片，可以按住Ctrl逐个点击图片来操作，选中即可。
4
点击图片菜单栏右下角的隐藏命令，调出图片设置的命令菜单界面，对图片进行设置。
5
把锁定纵横比和相对图片原始大小两个对勾都去掉，然后就可以自由设置图片大小了，因为插入的图片不一样大小，所以不能让他锁定。
6
手动输入想要同样的宽高数字，点击确定，进行统一的修改。

如何批量修改word图片大小

打开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 "设置图片高度为 320pxActiveDocument.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中的所有图片修改成固定的并且相同的长和宽！

转载请注明出处51数据库 » 批量更改word图片大小 word文档如何批量修改图片大小