word中批量修改图片大小的方法
发布时间:2023-03-20 08:16:02
在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
猜你喜欢
- 当你在Word文档中绘制了多个文本框时,可将各个文本框链接在一起,以使文本能够从一个文本框延续到另一个文本框。让文字在文本框间玩玩接力游戏,
- PDF文章段落怎么排序?PDF文档中想要设置文档对齐,该怎么设置呢?该怎么设置呢?下面我们就来看看pdf段落对齐的教程,需要的朋友可以参考下
- win10系统是最主流的计算机使用系统。用户可以使用win10系统进行大量的工作或娱乐。强大的性能也使win10系统成为计算机系统中最主流的
- 如果您使用Win10系统完游戏的时候会网络卡顿、游戏延迟严重,不妨试试禁用TCP协议中的Nagle算法来解决这个问题。Nagle算法主要用户
- 智能段落选择就是在Microsoft Word中拖动鼠标选择段落末尾的文本时自动选中段落标记。 Word 2010
- 现在不少朋友安装最新版本的WPS Office2012办公软件后,发现桌面上多出了一个WPS快盘,很多网友对于WPS快盘是什么以及有什么用多
- Win10更新19043.928(KB5001330)失败错误代码0x800f0984怎么办?相信现在已经有非常多小伙伴都已经开始安装最新的
- 每当用户试图开启Win10设备时,系统便会停留在锁屏界面一段时间,且需要用户点击一下才会进入系统。那么,该怎么跳过这一步骤呢?下面是小编分享
- 近日,iOS 版微信发布了 8.0 大版本更新,带来了全新的“状态”功能,可以让用户像在 QQ 一样,为自己的微信设置状态。方法很简单:只需
- iPhone 在使用一天后经常会电量耗尽的时候,此时我们可以开启“低电量模式”来延长 iPhone 的使用时间。如何能让 iPhone 在需
- WORD的文档中,我们可以插入各种特殊的符号,诸如各种表情的符号,那么word中怎样插入笑脸?下面小编就为大家介绍word迅速插入笑脸方法,
- 微软的游戏录屏功能看来有点自作多情了,为了给喜欢玩游戏的win10用户提供了游戏录屏功能而退出,然而这项功能在很多人看来并不好用,还不如自己
- office 2016 打不开了,一点击就提示 操作系统当前的配置不能运行此应用程序。我在安装office2016版本的时候,由于c盘空间实
- word页码从任意页开始?在设置页码的时候,想从任意页面开始设置,但是现在word设置页码是从第一页开始的,如果第一页是封面什么的是不需要页
- 请根据提供的“ppt素材及设计要求.docx”要求文件来设计制作演示文稿,并以文件名“PowerPoint.pptx”存盘,具体要求如下:1
- Win10系统自发布到现在,拥有的用户可谓是越多越多,但其实,尽管Win10系统相较于其他操作系统来说整体较为稳定,可各种各样的问题同样还是
- Word2013如何保存自定义文档封面第1步,打开Word2013文档窗口,创建用户自定义封面。第2步,切换到“插入”功能区,选中准备包含在
- 我们经常会看到一张图片被嵌入到了文字中,你是不是以为这中效果只有使用专业的排版软件才可以实现?Word中的文字环绕图片功能就可以实现这种排版
- 在Word文档中,文字下方是可以插入下划线的。但是因为大家都是简单地插入下划线,所以导致很多人印象当中,下划线和文字之间的距离是固定的。其实
- 当我们使用win7系统时,如果我们想将我们的系统升级到win10,小认为我们可以通过微软官方升级软件或下载win10来安装。详细内容就来看下