统一设置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