VBA统一处理WORD中的图片大小.docxVIP

Sub AdjustPicWidthAndHeight() Alt E AdjustPicWidthAndHeight 宏 Dim n, m Dim blnisinlineshape As Boolean Dim mylineshape As InlineShape On Error Resume Next 忽略错误 For Each mylineshape In ActiveDocument.InlineShapes If mylineshape.Height mylineshape.Width Then Selection.InlineShapes.ConvertToShape