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 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!
方法二:
1、在word中按alt+f11组合键,进入VBA模式
2、在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
3、把下面代码复制,粘贴进去.
4、更改数值, 改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片
复制代码
代码如下:
Sub Macro()
Mywidth=10 ‘10为图片宽度(厘米)
Myheigth=10 ‘10为图片高度(厘米)
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
word批量修改图片大小——按比例缩放篇
这部分要说的是把word中的所有图片按比例缩放!
具体操作同上,只是代码部分稍做修改,代码如下:
复制代码
代码如下:
Sub setpicsize() '设置图片大小
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
End Sub
京东上的拍拍二手手机靠谱吗目前国内的二手市场规模,不好卖,不敢买是大多数用户的最真实想法。那么京东上的拍拍二手手机靠谱吗?下面就由小编来给大家详细介绍一下吧!京东上的拍拍二手手机靠谱吗1拍拍二手是继京东之家
闲鱼上买东西靠谱吗不少人想要在闲鱼上收二手货,但是不知道闲鱼上买东西靠谱吗,其实这取决于我们是否仔细研究验货再进行购买。答闲鱼上买东西只要仔细验证还是靠谱的。如果我们不提前验货,就可能会遇到不靠谱的
洗衣机以旧换新靠谱吗洗衣机以旧换新套路说明在生活中,我们常常看到一些以旧换新电器的活动,以洗衣机为例,其活动内容大概是回收顾客的一些旧式的洗衣机,换成新的洗衣机,具体地说就是指消费者在购买新洗衣机时,可以拿旧的洗衣机做一定
淘宝造物节能量在哪造物节能量场玩法规则淘宝造物节是淘宝继双十一购物狂欢节之后针对90后年轻人推出的另一个节日。在淘宝造物节中,可以看到全球最顶尖的高科技90后明星偶像网红ldquo造音造艺rdquo精灵古怪的淘宝店he
淘宝517饿货节直播在哪看淘宝517饿货节直播查看地址淘宝517饿货节直播在哪看?淘宝517饿货节直播怎么看?各位吃货们的福利来了,淘宝在5月17日淘宝517饿货节给大家带来无数福利,而且还可以在淘宝517饿货节上看直播哦!那么淘宝5
为什么淘宝买东西系统繁忙现在很流行在网上购物,很多朋友喜欢在淘宝上买东西,那么为什么淘宝买东西系统繁忙呢?为什么淘宝买东西系统繁忙1可能是网络问题,有时候网速慢,导致软件不能够及时与服务器端进行通信,因此
天猫极速退货是什么意思淘宝天猫极速退货说明详解天猫极速退货是什么意思?淘宝天猫极速退货说明。天猫最近推出了天猫极速退货,大家一定很感兴趣吧,那么天猫极速退货是什么意思?让小编给大家说明一下淘宝天猫极速退货吧。天猫极速退货说明1
淘宝使用支付宝信用卡还款多久能成功使用支付宝进行信用卡还款,在您支付的资金提交后,会在(广发交行浦发华夏是2日内到账招行是1日内到账(晚上9点后付款第二天到账)。网上银行查询到账时间,要延后一天。农行信用卡建设银行
天猫精灵怎样解除绑定天猫精灵怎样解除绑定?天猫精灵是很智能的音响,有很多的用户都在用它,可以帮助你控制智能家电,但是需要进行绑定,那么绑定后应该怎么解绑呢?想要了解的小伙伴一起来看看下面的文章吧!1打
天猫精灵怎样绑定家电天猫精灵怎样绑定家电?天猫精灵是很智能的,还可以帮助用户智能控制家电,用户只需要给天猫精灵发送语音指令就可以,那么它怎绑家电呢?还不清楚的小伙伴就一起来看看吧!1打开天猫精灵app
天猫精灵怎样更改角色声音天猫精灵更改角色声音方法天猫精灵怎样更改角色声音?天猫精灵里的音色有很多,各种不同的声线语音音色,用户可以根据自己喜欢的音色选择,那么具体怎样更换音色呢?下面就一起来看看吧!1点击绑定的天猫精灵进入设备详