如何解决Word图片过大溢出了A4纸面问题

使用Word排版时，文档中会插入、粘帖许多图片，但往往这些图片的尺寸不统一，如图片过大已经溢出了A4纸面，影响版面美观。是否有什么办法能够解决批量修改这些图片的问题？本文将教你如何解决这一问题。

 

问题

Word中有很多粘帖进来的图片，由于图片尺寸过大已经溢出了A4纸面，所以需要统一调整所有图片的尺寸，尝试过“替换”–将^g替换为“格式”–“图文框”–指定宽度和长度这个方法，发现图片都套上了一个个的图文框，图文框是按照指定的宽度和长度缩小了，但是实际图片没有整体缩小，而是只显示了规定宽度和长度的那个区域的图像，请问各位有什么办法能够解决批量修改这些图片的问题？

 

解答

   对于嵌入式图形，可以使用VBA完成统一设置宽高数据，如下：

Sub 统一图片尺寸()

‘仅适用于嵌入式图片

Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape
.LockAspectRatio = msoFalse ‘不锁定纵横比
.Height = MillimetersToPoints(23) ‘以毫米为单位设置高度
.Width = MillimetersToPoints(31) ‘以毫米为单位设置宽度
End With
Next
End Sub

对于浮动式图形，可以使用以下方法简单实现：

（1）单击【绘图】工具栏右则的 （工具栏选项）按钮，依次单击【添加或删除按钮】/【绘图】/【选中多个对象】命令，【选中多个对象】命令将被添加到【绘图】工具栏的最后位置。

（2）单击【绘图】工具栏中的 （选中多个对象）按钮，弹出【选择多个对象】对话框。

（3）单击【全选】按钮，【对象】列表框中的所有对象被全部选定。

（4）单击【确定】按钮，Word全选文档中的所有图片。

（5）单击【格式】/【图片】命令，打开【设置图片格式】对话框，单击【大小】选项卡，在【高度】框中输入“23”（毫米），在【宽度】框中输入“31”（毫米）。第6步，单击【确定】按钮，Word将所有图片统一设置成23mm*31mm（高*宽）。

热门文章回顾

1、不做加班狗——Word文字处理技巧分享 

2、你造吗？Word如何规范格式 

3、Word制作目录，so easy! 

4、Word哥，提升3倍工作效率的神操作 

5、七个word技巧，提高效率就靠它!  

温馨提示：部落窝教育因平台服务费原因，将于明天开始，各科目学费上调100元。需要学习的同学，请立即报名。