当前位置:office办公软件学习-Excel教程-PPT教程-Word教程 > WORD达人 > Word图形 > 图形绘制 > Word图片过大溢出了A4纸面怎么办?

Word图片过大溢出了A4纸面怎么办?

时间:2015-05-23 11:00来源:office办公达人 作者:office办公达人整理 阅读:
【导读】:Word中有很多粘帖进来的图片,由于图片尺寸过大已经溢出了A4纸面,所以需要统一调整所有图片的尺寸,是否有什么办法能够解决批量修改这些图片的问题?本文教你如何解决这一问题。

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

  解答:
  对于嵌入式图形,可以使用VBA完成统一设置宽高数据,如下:
  Sub 统一图片尺寸()
  '仅适用于嵌入式图片

  1.  Dim oInlineShape As InlineShape      
  2. For Each oInlineShape In ActiveDocument.InlineShapes  
  3.   With oInlineShape              
  4. .LockAspectRatio = msoFalse    '不锁定纵横比  
  5.  .Height = MillimetersToPoints(23)    '以毫米为单位设置高度             
  6.  .Width = MillimetersToPoints(31)    '以毫米为单位设置宽度  
  7.  End With      
  8. Next  
  9. End Sub 
  对于浮动式图形,可以使用以下方法简单实现:

  第1步,单击【绘图】工具栏右则的 (工具栏选项)按钮,依次单击【添加或删除按钮】/【绘图】/【选中多个对象】命令,【选中多个对象】命令将被添加到【绘图】工具栏的最后位置。
  第2步,单击【绘图】工具栏中的 (选中多个对象)按钮,弹出【选择多个对象】对话框。
  第3步,单击【全选】按钮,【对象】列表框中的所有对象被全部选定。
  第4步,单击【确定】按钮,Word全选文档中的所有图片。
  第5步,单击【格式】/【图片】命令,打开【设置图片格式】对话框,单击【大小】选项卡,在【高度】框中输入“23”(毫米),在【宽度】框中输入“31”(毫米)。第6步,单击【确定】按钮,Word将所有图片统一设置成23mm*31mm(高*宽)。

分享到
更多
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
栏目列表
文章点击榜
推荐内容
最新文章
关于我们 | 联系我们 | 友情链接 | 版权声明 | 网站地图 | 帮助

网站为公益性网站,部分内容来源网络,如无意中侵犯了您的版权,请来信告知,我们会在第一时间处理
CopyRight© 2013-2018,www.officedoyen.com 版权所有   技术支持:泉州网站建设  闽ICP备14010062号