统一设置word文档中的图片大小的宏。

Sub 统一图片尺寸()

'仅适用于嵌入式图片

Dim oInlineShape As InlineShape

For Each oInlineShape In ActiveDocument.InlineShapes

With oInlineShape

.LockAspectRatio = msoTrue '不锁定纵横比

.ScaleHeight = 100

.ScaleWidth = 100

End With

Next

End Sub

Sub set100()

Dim j As Long '计数图片个数

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

ActiveDocument.InlineShapes(j).ScaleHeight = 100 '设置高度显示比例

ActiveDocument.InlineShapes(j).ScaleWidth = 100 '设置宽度显示比例

Next j

End Sub