关于word中的图片

scuxxj87112

1541

收藏 2011-05-23

悬赏 10 个论坛币已解决

各位好！我在word文档里插入了100多张图片，但都是21.93厘米*14.63厘米大小，我想把它们都变成A4页面大小（29.70*21.00），请问有没有什么快捷的方式呢？

最佳答案

aidey 查看完整内容

一,在word中按alt+f11组合键,进入VBA模式二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块三,把下面代码复制,粘贴进去. 四,更改数值, 改一下宽度和高度数值，点运行(类似播放按钮.)或f5,即可设置文档中全部图片 Sub Macro() Mywidth=21'数据为图片宽度（厘米） Myheigth=29.70'数据为图片高度（厘米） For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * Myheigth iShape.Width ...

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

aidey

2011-5-23 19:48:17

一,在word中按alt+f11组合键,进入VBA模式
二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
三,把下面代码复制,粘贴进去.
四,更改数值, 改一下宽度和高度数值，点运行(类似播放按钮.)或f5,即可设置文档中全部图片

Sub Macro() Mywidth=21'数据为图片宽度（厘米） Myheigth=29.70'数据为图片高度（厘米） For Each iShape In ActiveDocument.InlineShapes iShape.Height = 28.345 * Myheigth iShape.Width = 28.345 * Mywidth Next iShape End Sub

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

scuxxj87112

2011-5-23 20:43:48

2# aidey
非常感谢你！！！
我把下面那行代码复制进去后（要删掉中文吧），按F5，出现了一个宏对话框，其中有两个栏目，上面一个是宏名称……这个怎么填写呢

谢谢！！！

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

pangbaoqing

2011-5-23 22:33:52

有问题找百度嘛，呵呵

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

944425730

2011-5-24 02:54:57

呵呵楼主很专业二楼回复的人更专业啊！！！

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

最佳答案

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群