1、打开WORD文档编辑页面。


3、在宏的编辑页面里输入代码。Sub 批量编辑图片大小()Dim Shap As InlineShapeFor Each Sh锾攒揉敫ap In ActiveDocument.InlineShapesIf Shap.Type = wdInlineShapePicture ThenShap.LockAspectRatio = msoFalse '不锁定纵横比Shap.Width = CentimetersToPoints(9) '9CMShap.Height = CentimetersToPoints(9) '9CMEnd IfNextEnd Sub
