WORD中图片大小统一调整宏设置方法.doc

 Sub 调整图片大小() '
' 调整图片大小 宏'
  Dim j '计数图片个数
 For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
 ActiveDocument.InlineShapes(j).Height = 328 '设置高度（28.4像素/厘米）
ActiveDocument.InlineShapes(j).Width = 457 '设置宽度（28.4像素/厘米）
 Next j
 End Sub

注意：0.99厘米=28像素