怎样快捷批量调整word文档中的图片大小
投标编辑商务标时,一般会插入大量的图片文件,当然这些图片大小一般是不一致的,通常插入到文档后都需要手动调整,如果说这些图片要调整统一大小,为什么不用快捷省事的宏操作呢……
操作方法
- 01
打开插入图片的文档,点击切换到“视图”标签,点击“宏”-查看宏
- 02
在宏设置对话框,给这个宏起个名字,然后点击右侧的“创建”按钮
- 03
打开VBA编辑器,用找到的代码粘贴替换默认的代码: Sub SetPicSize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).Height = 24 * 28.35 '设置图片高度为 24cm (1cm等于28.35px) ActiveDocument.InlineShapes(n).Width = 14 * 28.35 '设置图片宽度 14cm Next n End Sub
- 04
复制好代码,点击工具栏的运行按钮▶(右三角)
- 05
跳出宏对话框,选择这个宏,点击“运行”按钮
- 06
关闭VBA编辑器,可以看到图片已经全部变为代码里设置的大小
赞 (0)