word中将大量图片统一尺寸大小


选择工具——宏——宏(Alt+F8调出宏编辑窗口),输入宏名——(非数字)——创建;
在Sub 宏名()与End Sub之间编写如下代码:
[vb]
Dim n ‘图片个数
On Error Resume Next ‘忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count ‘InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 800 ‘设置图片高度为 800px
ActiveDocument.InlineShapes(n).Width = 600 ‘设置图片宽度 600px
Next n
For n = 1 To ActiveDocument.Shapes.Count ‘Shapes类型图片
ActiveDocument.Shapes(n).Height = 800 ‘设置图片高度为 800px
ActiveDocument.Shapes(n).Width = 600 ‘设置图片宽度 600px
Next n
[/vb]
之后单击运行即可

发表评论