一聚教程网：一个值得你收藏的教程网站

ps教程| flash教程| 路由器设置| Jsp教程| 加入收藏

PHP教程 Css教程 操作系统 数据库 安卓下载

首页 游戏下载 软件下载 专题 资讯教程 php教程 asp.net教程 css教程 网页制作 网页特效 手机开发 办公数码
+ -
当前位置：一聚教程网 > 办公数码 > word

推荐专题

最新下载

热门教程

word宏实现批量处理照片大小方法

时间：2022-06-26 07:02:48 编辑：袖梨 来源：一聚教程网

北街最近需要写的文档越来越多了，根据公司文档规范性，我要使用正规的格式和样式做一些图文混排的 Word ，例如使文档中的每一幅图片大小一致。下面的方法就是告诉大家 Word 批量处理统一图片大小的方法。

使用方法：把代码复制到 Visual Biscal 编辑器中，再回到 Word 界面，运行“宏”命令。

 代码如下 复制代码

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

操作步骤如下：
　　1. 打开要统一图片大小的 Word 文档，点击“工具”-“宏”-“Visual Biscal 编辑器。

Word宏：Word中的图片批量统一大小及同比例缩放

 

　　2. 插入 normal 工程“模块”。

Word宏：Word中的图片批量统一大小及同比例缩放

 

　　3. 在“模块”中粘贴上面的代码。

Word宏：Word中的图片批量统一大小及同比例缩放

 

　　4. 保存，返回你要统一图片大小的 Word 文档。运行“工具”-“宏”-”宏命令”。

Word宏：Word中的图片批量统一大小及同比例缩放

 

　　看一下结果，是不是你想要的统一图片大小。

 

Word宏：Word中的图片批量统一大小及同比例缩放

用的两张图一个大一个小，统一后 400*300 还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。


按比例缩放的方法和上面的是一样的，只是代码变化一下，过程就不熬述。VBA 代码如下：

 代码如下 复制代码

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

相关文章

热门栏目

一聚教程网| 关于我们| 联系我们| 广告合作| 友情链接| 版权声明

copyRight@2007-2022 www.111CN.NET AII Right Reserved

网站内容来自网络整理或网友投稿如有侵权行为请邮件:[email protected] 我们24小时内处理