WORD图片的批量导入批量修改word图片大小和压缩图片方法.docx

实现WORD图片的批量导入、批量修改图片大小和批量压缩图片方法

实现在WORD图片的批量导入：如果图片都存在同一个文件夹中，那么我们可以按住shift键批量插入图片~
一、批量修改word图片大小
1、菜单——“工具”——“宏”——“宏”，也可以用快捷键ALT+F8调出，
2、在“宏”窗口中，“宏名”改成“批量调整图片大小”

再点“编辑”

复制、粘贴以下代码：

Sub批量调整图片大小()
'
'调整图片大小Macro
'宏在2011-5-22由User创建
'

DimiShapeAsInlineShape,WidthNumAsLong
ForEachiShapeInActiveDocument.InlineShapes
WithiShape
WidthNum=.Width
.Width=13*28.35
.Height=(13*28.35/WidthNum)*.Height
EndWith
Next

'注：1厘米＝28.35磅值
'以上为同比例缩放的近似算法

EndSub

再点工具栏里的“保存”，保存修改。

3、选择宏名——运行，就可以自动批量修改图片大小。

二、批量压缩word图片大小
1、选中某一张图片——右键“设置图片格式”——“图片”——“压缩”——

选择上面的应用于“文档中的所有图片”。