word文档批量修改图片的方法
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
[手把手]word批量导入、修改图片大小和压缩图片
工作中,我们不时会需要将大量图片插入word,并对其设置统一的尺寸大小。下面请跟随我,学习批量导入、修改图片尺寸和压缩图片的方法,让你告别重复工作。
工具/原料
Microsoft Word 2007
一、批量导入图片
1. 1
将所有需要导入的图片放入同一文件夹,修改文件名,使其排列顺序符合我们要求。
2. 2
打开word,依次点击:插入→图片
3. 3
在弹出的窗口,“查找范围”框里找到需要插入图片所在文件夹,
方法一:选中第1张图片,按住键盘Shift键,再选中最后一张图片。
方法二:选中任意一张照片,同时按键盘“Ctrl”键和字母“A”键,全选点击“插入”
4. 4
效果如图
END
批量修改图片尺寸
1. 1
接上面的例子。
方法一:在word软件界面中依次点击:开发工具→宏
方法二:同时按键盘“Alt”键和“F8”键(后面简称Alt+F8)弹出宏创建窗口
2. 2
在宏名栏里任意输入一个宏的名字,本例中我们使用“setpicsize”点击创建
3. 3
弹出“Microsoft Visual Basic”窗口,复制下面的代码到代码窗口里替换掉原有内容:
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为5cm (1cm等于28.35px)
ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度4cm Next n
End Sub
'其中图片本例中图片尺寸为5cm和4cm
4. 4
点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮(类似播放器里的播放按钮)或者按键盘“F5”键
等待一会儿……(等待时间取决于你插入图片的多少和你电脑的运算速度)……
5. 5
待标题栏上方的[正在运行]消失后,点击右上角小叉关闭“Microsoft Visual Basic”窗口。
大功告成!!
END
批量压缩图片大小
1. 1
选中任意一张图片,依次点击:“格式”→“压缩图片”
2. 2
在弹出的“压缩图片”窗口里点击“选项”;
在弹出的“压缩设置”窗口里选择相应的“目标输出”;
确定。
END
注意事项
为提高效率,提前将图片排好,可在图名加前缀