word如何设置图片大小一样的
发布时间:2022-09-11 15:33:23
批量将图片调整到大小一致,PS也不是很好操作的。word文档却能很轻易的做到这一点,对于常用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),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)
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 ToActiveDocument.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
猜你喜欢
- 每个人都有只想自己一个人看到的那几张照片,在整个相册中如何把它隐藏起来呢?iOS 14中,苹果加入了“照片隐藏”这一非常实用的功能,相关操作
- 许多小伙伴认为win10更新了主题背景,桌面背景单一,想要包含多张图片,那么应该怎么设置?以下小编整理了相关教程,一起来看看吧!win10设
- 使用Word编辑了文档,但图形和表格在打印后没有边框。这种故障可以按照以下方法进行解决。1.在Word中选择“Word”→“选项”。2.在“
- 1.打开需要转换脚注和尾注的文档,接着点击工具栏的“引用”在引用里找到脚注选项并点击脚注的右下方。 2.我们就会进
- excel/word宏已被禁用解决方法来咯~小编将会告诉大家遇到“宏已被禁用”提示解决方法,这两个提示在excel和word中经常出现,怎么
- Word 2007窗口通常一次只显示一部分文档,因此您可以使用键盘导航到文档的不同部分。然后,您可以将插入指针放在Word 2007文档中所
- 电脑在使用过程当中会产生许多垃圾文件,在删除的时候可能会删除掉一些重要文件,当然这些文件会被存放在回收站中,万一手贱将回收站清空了话要怎么办
- win10系统对比于win7,调整了开始菜单里的各种功能小程序工具,很多用户一时不习惯,比如常用自带的计算器。那win10自带的计算器在哪里
- 今天分享7个Word技巧,让你办公效率提升5倍不止,建议收藏使用。1、F4重复键在Word中F4的作用是用于重复上一步操作,简单的说就是你上
- Win10 2004系统更新一般来说速度都不会很慢,但总有例外,有小伙伴在自己的系统更新安装win102004版本的过程中出现了win10版
- project日历模板怎么重命名?project日历模板想要重新命名,该怎么重命名呢?下面我们就来看看project重命名日历模板的教程,需
- Win10系统是最流行和最新的系统。我们大多数的小伙伴都在使用win10系统,因为win10系统比其他系统具有更完善的智能功能。例如,我们今
- 安装不了软件是很痛苦的,没有软件,电脑也就剩下一个空壳了。win10系统安装不了软件这种情况需要怎么来解决,下面来看看小编的教程。win10
- 很多朋友在使用word2013文档的时候,可能还不是很清楚Word2013文档怎么设置双面打印?今天,小编就给大家简单介绍下Word2013
- word是现代办公文档编辑的首选软件,因此我们都应该熟练掌握word的基本功能,精通word的操作技巧,那么word怎么设置A4纸张呢?下面
- window10是当前最热门的一款操作系统,在使用过程中总会遇到各种故障问题,例如win10系统重启时会一直转圈圈,等待很久时间还是一样,也
- 晕了,Word2003文件打不开了,这让我怎么工作呀,前几天还用着正常,怎么今天就出现这种问题了。双击打开Word2003时,就会出现一下提
- 默认情况下,Word2010文档的文本框垂直对齐方式为顶端对齐,文本框内部左右边距为0.25厘米,上下边距为0.13厘米。这种设置符合大多数
- 我们使用的电脑一般都会安装很多软件来丰富我们电脑的功能,安装的软件都是根据不同需要来安装的。如果你的电脑出现了此应用无法在你的电脑运行的提示
- 对于一直使用电脑的朋友来说,屏幕看久了以后就会觉的眼睛很累,那么有没有能有设置电脑屏幕保护色的方法吗?今天就和小编一起看看如何去设置Win1