word中批量修改图片大小
发布时间:2023-02-27 17:19:50
小一最近在复习高数,复习材料当然是下载的电子版的了,嘿嘿!不过~~这材料居然~~所有复杂的式子都是图片形式的,光是这样小一也就忍了,关键高数 嘛~~式子会比较复杂,这些图片做的又那么小,根本看不清啊!按住Ctrl+滚轮倒是可以放大,但是这样不是很方便,而且~~小一还想打印出来呢,怎么办 呢?总不能一个图片一个图片的修改吧……
声明:小一下面要说的“批量修改word里的图片大小”的方法需要使用到宏,所以~~最好对VB有所了解!当然~~这不是必需的,只要跟着小一的图文教程走,不知道什么是宏,不知道什么是VB也可以!
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 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文档里所有图片放大了1.1倍,各种公式、坐标轴都比原来清楚多了,
自动批量处理Word中图片,主要完成的工作是:重置所有图片,对所有图片做裁剪。代码很简单,但值得记录,以后可以参考。
For Each iShape In ActiveDocument.InlineShapes '1cm = 28.35 pt Dim pic If iShape.Type = wdInlineShapePicture Then iShape.Reset iShape.PictureFormat.CropTop = 1.5 * 28.345 iShape.PictureFormat.CropBottom = 1.5 * 28.345 iShape.PictureFormat.CropLeft = 1.2 * 28.345 iShape.PictureFormat.CropRight = 1.2 * 28.345 End If Next iShape End Sub


猜你喜欢
- 畅言教学通作为一款专业的教学工具,集备课、上课、班级互动、作业、全方位家校互通等功能于一体,为众多教育工作者提供更好的教学素材及班级管理方式
- 在“出生日期”栏中输入数据时,单元格格式为“通用”,格式统一为“1980年9月16日”。如图1所示,该列的数据格式必须更改为“1980091
- Win11是微软今年最新推出的电脑系统,想要安装win11系统体验的小伙伴可以来看看。电脑升win11有必要吗?windows10有必要升级
- 现在很多从事设计的朋友基本都会使用AutoCAD 2007,不过对于一些新用户来说,这个软件的功能可能还不够了解。在设计过程中,可能会用到不
- 具体的解决方法如下:重启电脑,然后不停的敲击进入BIOS启动热键,(一般为F2键,DEL键,ESC键,电脑品牌不同按键不一,在开机logo界
- INDEX+MATCH这么厉害的组合,你用过吗?【问题来源】原来,过很多VLOOKUP查询函数的使用。VLOOKUP查询有两个不便之处:1、
- Win7系统自带有ie浏览器,一般安装系统桌面就会显示ie图标了,部分用户没有使用IE浏览器,觉得桌面的ie图标显得有些多余。那么Win7如
- NFC打印及Wi-Fi热点功能,对企业用户来说,这两个功能的加入无疑会让Windows 8.1变得更加实用,感兴趣的朋友可以参考下哈了Win
- 如何使用支付宝进行收款?现在出门很多人都不带现金,直接用手机就可以完成交易,那么,支付宝要怎么进行收款呢,下面就给大家分享具体步骤。首先打开
- 这篇文章主要介绍了共享打印机没有权限访问怎么解决?Win10共享打印机没有权限访问的解决方法的相关资料,需要的朋友可以参考下本文详细内容介绍
- 公章对于大家来说并不陌生吧!经常会在公司、企业、单位、办事处等地方看到。一般用于盖在文件上面,才会生效。但现如今已经是互联网时代,有时候在网
- Win10开机小键盘不自动开启怎么办?我们在使用电脑的时候为了自己的电脑安全和隐私性,通常会设置密码,但是有些小伙伴却会遇到开机小键盘不自动
- Win10双显卡怎么切换AMD和英特尔?大家应该都有遇到需要对win10系统双显卡设置只使用独立显卡进行设置的情况,怎么切换呢?小编来教你吧
- Wps office大家肯定都用过了,新版的wps为我们提供了mail功能,那么,如何添加wps mail账号呢?下面就让小编告诉你如何在w
- 在wps文字中编辑文档的时候,经常会用到标尺,那么,你知道怎样设置标尺吗?下面就让小编告诉大家在wps文字中如何设置标尺。在wps文字中设置
- Excel文件损坏了?别紧张,有很多方法可以解决这个问题。试一试用下面其中一种方法恢复Excel文件。步骤方法 1修复文件打开空白
- 使用win10投影仪时,每次都需要从设置或控制面板中打开,操作起来很麻烦。当然,投影仪有快捷键吗?来看看快捷键的介绍吧~。win10投影快捷
- 系统部落9月1日消息,微软今天推送了最新的服务器版本25192.1000,此次更新带来了其中包含适用于数据中心版和标准版的桌面体验和服务器核
- 关于Excel如何取出一段文字中的数字,这样的问题,老师们每天都在面对。本文的excel提取中间数字,我们就是要在EXCEL中将单元格中数字
- 在使用wps表格的时候,如果觉得数据排列过于紧凑,我们可以在wps表格中插入空白行来对数据进行分隔,那么,在wps表格中如何实现隔行插入空白