word批量导入、修改图片大小和压缩图片
2015-05-24 12:13
288 查看
一：在word软件界面中依次点击：同时按键盘“Alt”键和“F11”键
二：帖入下面一段话
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 10 * 28.35 '设置图片高度为 5cm （1cm等于28.35px）
Next n
End Sub
三：点击运行按钮(上方三角形)
二：帖入下面一段话
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 10 * 28.35 '设置图片高度为 5cm （1cm等于28.35px）
Next n
End Sub
三：点击运行按钮(上方三角形)
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- ASP实现上传图片自动 压缩图片大小 留存待修改
- word图片大小修改及文档的压缩
- word批量修改图片大小――固定长宽篇
- IOS图片压缩（修改图片大小）
- Android之图片压缩和Uri与String类型的路径转换，获取图片，文件大小的工具类
- 修改一个图层内的图片大小
- 将含有图片的WORD文件压缩大小
- 利用 OSX 自带的 Automator 批量修改图片大小
- 如何修改drawabletop图片的文件大小
- android设置drawableTop导入的图片大小
- 巧用isee“压缩”限制图片的文件大小及其尺寸
- 提供下载：批量图片压缩（生成缩略图或指定大小图片）及文件批量改名器
- 修改KindEditor图片批量上传数量和大小限制
- mac电脑如何转换图片格式及修改大小？
- C# 修改图片文件分辨率大小
- 修改phpMyAdmin 导入MySQL数据库文件大小限制
- ios-->截图、生成指定大小图片以及压缩
- 图片超过指定大小后等比例压缩图片
- 利用PhotoShopS修改图片内存大小