订阅
上一篇
下一篇
批量修改word内图片的大小
作者:admin 日期:2011-12-14
log_Content
"通过宏可以批量完成一个word中所有图片大小的修改：
1、Alt+F8调出宏编辑窗口
2、点创建按钮，创建新宏，建立一个名字abc,内容如下：
Sub abc()
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = ActiveDocument.InlineShapes(j).Height * 0.7 '设置高度为原来的70%
ActiveDocument.InlineShapes(j).Width = ActiveDocument.InlineShapes(j).Width * 0.7 '设置宽度为原来的70%
Next j
End Sub
3、保存--退出宏编辑----点"工具"---"宏"---运行abc宏，word中所有的图片统一调整。
"通过宏可以批量完成一个word中所有图片大小的修改：
1、Alt+F8调出宏编辑窗口
2、点创建按钮，创建新宏，建立一个名字abc,内容如下：
Sub abc()
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = ActiveDocument.InlineShapes(j).Height * 0.7 '设置高度为原来的70%
ActiveDocument.InlineShapes(j).Width = ActiveDocument.InlineShapes(j).Width * 0.7 '设置宽度为原来的70%
Next j
End Sub
3、保存--退出宏编辑----点"工具"---"宏"---运行abc宏，word中所有的图片统一调整。
[本日志由 admin 于 2022-12-30 11:24 PM 编辑]
文章来自: 本站原创
引用通告地址: http://www.cn-sohu.com/bolg/trackback.asp?tbID=355
Tags:
文章来自: 本站原创引用通告地址: http://www.cn-sohu.com/bolg/trackback.asp?tbID=355Tags: 评论: 0 | 引用: 0 | 查看次数: 260
发表评论
你没有权限发表留言！