1 2 3 4 5 6 7 8 9 10 11 12 |
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 编辑器。
2. 插入 normal 工程“模块”。
3. 在“模块”中粘贴上面的代码。
4. 保存，返回你要统一图片大小的 Word 文档。运行“工具”-“宏”-"宏命令"。
看一下结果，是不是你想要的统一图片大小。
我用的两张图一个大一个小，统一后 400*300 还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。
按比例缩放的方法和上面的是一样的，只是代码变化一下，过程就不熬述。VBA 代码如下：
1 2 3 4 5 6 7 8 9 10 11 12 |
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 |
以上是小编为您精心准备的的内容，在的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索图片
， next
， 400
， 大小
， 400错误
， 设置图片大小
， 宽度
300
word批量删除图文框、批量删除图文框、mp3 批量统一音量、批量统一音乐音量、批量处理word图文框，以便于您获取更多的相关知识。