Question

想把粘贴到word的图片一起调整到合适页面的大小，怎么能一起调？

16开的材质合格证扫描后，全部粘贴到word，设置是上2.7下2.6左2.5右2， 我想一次性把粘贴的所有图片统一调整到适合页面的大小，但不知道怎么弄 现在只能一张张的弄，调小了，图片下边距到word下边差一点，调大了又超一点，调完上下，左右还得裁剪，好几十张呢，有没有一次性同时调整多张图片的方法？

Answer 1

1、Alt+F8调出宏编辑窗口
2、点创建按钮，创建新宏，setpicsize,内容如下：
Sub setpicsize()
'设置图片大小
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 362 '设置高度
ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度Next jEnd Sub3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm
Sub setpicsize()
'设置图片大小
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

Answer 2

Sub 统一图片尺寸()
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height =CentimetersToPoints(4) '高度4cm
ActiveDocument.InlineShapes(n).Width =CentimetersToPoints(3) '宽度3cm
Next n
For n = 1 To ActiveDocument.Shapes.Count'Shapes类型图片
ActiveDocument.Shapes(n).Height =CentimetersToPoints(4) '高度4cm
ActiveDocument.Shapes(n).Width =CentimetersToPoints(3) '宽度3cm
Next n
End Sub

上面是word中统一图片尺寸的宏代码，希望能帮到你。代码中的图片尺寸可以根据需要进行修改。

Answer 3

在word理设置图片大小

Answer 4

【转载自： http://zhidao.baidu.com/question/98364688.html】我知道通过宏可以批量完成一个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