怎样批量调整word 图片大小

悬赏分：0 - 解决时间：2009-6-4 20:57 

怎样才能把word中所有图片的大小调整为原来的50%？（是空间大小？ 

提问者： cp3win - 二级

最佳答案

我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。 

1、Alt+F8调出宏编辑窗口 

2、点创建按钮，创建新宏，setpicsize,内容如下： 

Sub setpicsize() 

'设置图片大小 

' 宏在 2008-3-31 由 hero_thm 录制 

' 

Dim j '计数图片个数 

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes 

ActiveDocument.InlineShapes(j).Height = 362 '设置高度 

ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度 

Next j 

End Sub 

3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

'

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

If ActiveDocument.InlineShapes(j).Width > 480 Then

ActiveDocument.InlineShapes(j).Width = 400 '设置宽度

End If

Next j

End Sub 

 11

计算方法：图片成品尺寸*28.34（宽和高都是28.34）

粮科所图片大小宏

宏名：setpicsize

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

'

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

ActiveDocument.InlineShapes(j).Height = 300.4  '设置高度

ActiveDocument.InlineShapes(j).Width = 393.93 '设置宽度

Next j

End Sub