怎样在word里批量修改图片大小
当一个word文件里有很多张图片时,通过使用vba可以批量将文件中所有图片修改为同样大小,令文件看起来更加整洁有序
操作方法
(01)假设有一个word文件,中间有多张大小不一的图片,需要将其中的图片按比例缩放为一样高或者一样宽。
(02)在菜单栏中选择“开发工具”选项卡,点击“Visual Basic”打开VBA编辑器。
(03)在打开的编辑器中输入以下代码,稍后做详细解释。Sub 设为统一宽度()Dim n x27;图片个数Dim picwidthDim picheightDim newWidthnewWidth = 300On Error Resume Next '忽略错误For n = 1 To t 'InlineShapes 类型图片picheight = neShapes(n)htpicwidth = neShapes(n)neShapes(n)ht = picheight * newWidth / neShapes(n)h = newWidthNext nFor n = 1 To t 'Shapes类型图片picheight = es(n)htpicwidth = es(n)t neShapes(n)ht = picheight * newWidth / neShapes(n)h = newWidthNext nEnd SubSub 设为统一高度()Dim n '图片个数Dim picwidthDim picheightDim newHeightnewHeight = 200 '设为统一高度时修改此数值On Error Resume Next '忽略错误For n = 1 To t 'InlineShapes 类型图片picheight = neShapes(n)htpicwidth = neShapes(n)neShapes(n)ht = neShapes(n)h = picwidth * newHeight / picheightNext nFor n = 1 To t 'Shapes类型图片picheight = es(n)htpicwidth = es(n)t neShapes(n)ht = neShapes(n)h = picwidth * newHeight / picheightNext nEnd Sub
(04)sub后面就是一个过程的名字,想要运行哪个过程,就把活动光标放在哪个过程体里面,或者在右上角选择相应名称的过程。按F5键,或者单击菜单栏上的运行按钮,运行相应过程。
(05)如果运行的是“设为统一宽度”,将得到以下结果。
(06)如果运行的是“设为统一高度”,将得到以下结果。
(07)也可以通过直接设置代码中的neShapes(n)ht、neShapes(n)h、neShapes(n)ht、neShapes(n)h的数值来修改图片,例如“neShapes(n)ht=200”。但是这样就不是等比例缩放了。
特别提示
运行之前注意选择需要运行的过程
-
怎么取消电脑自动锁屏
不喜欢电脑自动锁屏,但也不知道怎么设置,没关系,一起和我来了解一下吧。操作方法(01)我们先打开“控制面板”,可以在“开始菜单”或者是直接在桌面上打开,大家就自己选择吧。(02)打开之后,我们选择“系统和安全”。(03)再在“电源选项”下,选择“更改计算机睡眠时间”。(04)最...
-
Windows 10关闭自动更新(Windows Update)的方法
现在的windows系统更新得越来越频繁,windows10也不例外,但是很多时候,很多人都不想进行更新,但是又没有直接关闭更新得选项,所以我今天就来给大家介绍一下如何关闭系统更新得方法,下面就一起来看看吧。可以从服务管理中进行关闭(01)命令方法打开:我们可以按下快捷键:win+...
-
Win10系统怎么登陆Microsoft账户
如果有小伙伴想知道Win10系统怎么登陆Microsoft账户,可以来看看下面的步骤哦!一、先注册账户。(01)在网上搜索“Microsoft账户注册”,找搜索结果中找到注册官网进行注册。(02)进入注册界面以后,输入正确的相关信息,然后输入密码和其他的信息。(03)输入完成之后,我们就可以...
-
win10任务计划在哪里 如何打开计划任务程序
在使用Windows10的过程中,有时候我们需要禁用任务计划程序里的某个计划,这时就需要打开任务计划程序,那么我们怎么样打开计划任务程序呢?下面就与大家分享两个方法吧。方法/步骤1(01)在Windows10系统桌面,依次点击“开始/Windows系统/控制面板”菜单项。(02)在打开的Win...