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