word 批量修改文档中的图片大小

应用场景：

将PPT所有幻灯片导出保存为图片，然后，把所有图片都插入到word中，

然后到打印店把word文档打印出来便于平时浏览(特别是期末考试的时候)，

但是，插入的图片占用面积太大导致word文档页数太多，

所以需要批量修改图片的大小。

描述：

MS Word中的宏定义，使用的是VB语言

作者这里演示，使用的是2013版的 MS Word

视图-宏-查看宏(或者直接按Alt+F8)进入宏的界面，如下面所示，输入一个宏名，然后创建宏：

复制代码，输入代码然后运行：

代码如下(单引号为注释)：

Sub setpicsize()
'
' setpicsize 宏
'
'
Dim n '图片个数
Dim picwidth '图片宽度
Dim picheight '图片高度
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.5 '设置高度为0.5倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍
ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
'ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter '居中对齐
'ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphLeft '左中对齐
Next n
End Sub