欧非资源网:安全、免费、专业放心的资源下载站! 最新软件|软件分类

您的位置:欧非资源网 > Word专区 > Word教程 > word 图片怎么批量调整大小

word 图片怎么批量调整大小

时间:2020-04-08 20:10作者:admin来源:未知人气:400我要评论(0)

在我们使用Word编辑时会插入大量的图片文件,当然这些图片大小一般是不一致的,通常插入到文档后都需要手动调整,如果说这些图片要调整统一大小,如何理解批量的调整大小呢?

1、打开插入图片的文档,点击切换到“视图”标签,点击“宏”-查看宏

1.jpg

2、在宏设置对话框,给这个宏起个名字,然后点击右侧的“创建”按钮

1.jpg

3、打开VBA编辑器,用找到的代码粘贴替换默认的代码:

1

2

3

4

5

6

7

8

Sub SetPicSize() '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片

ActiveDocument.InlineShapes(n).Height = 24 * 28.35 '设置图片高度为 24cm (1cm等于28.35px)

ActiveDocument.InlineShapes(n).Width = 14 * 28.35 '设置图片宽度 14cm

Next n

End Sub

1.jpg

4、复制好代码,点击工具栏的运行按钮▶(右三角)

1.jpg

5、跳出宏对话框,选择这个宏,点击“运行”按钮

1.jpg

6、关闭VBA编辑器,可以看到图片已经全部变为代码里设置的大小

1.jpg

相关阅读 12Word 样式Word 使用模板Word 目录Word 打印预览文档Word 文档比较Word 文档安全性Word 设置水印Word 快捷键大全​word段落间距怎么设置

文章评论
发表评论

热门文章 word表格中有一段空白处却不能输入文字,是怎么回事?九九乘法口诀表 可以下载直接打印使用(Word/PDF版)word 表格设置浅色底纹强调文字颜色两种方法如何利用word制做思维导图

最新文章 12Word 样式 Word 使用模板Word 目录Word 打印预览文档Word 文档比较

人气排行 word表格中有一段空白处却不能输入文字,是怎么回事?九九乘法口诀表 可以下载直接打印使用(Word/PDF版)word 橡皮擦在哪里? 橡皮擦的功能和使用方法word 表格设置浅色底纹强调文字颜色两种方法如何利用word制做思维导图word 如何设置某一页为横向页面word2016免费中文激活版下载 word2016官方免费完整版下载word字体颜色深浅不一怎么办

盖楼回复X

(您的评论需要经过审核才能显示)