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