1.下面是我修改图片的宏的定义，具体使用方法大家可以看我的视频。
2.Sub xiugaitupian() '函数名 Dim Shap For Each Shap In ActiveDocument.InlineShapes If Shap.Type = wdInlineShapePicture Then Shap.LockAspectRatio = msoFalse '不锁定纵横比 Shap.Width = CentimetersToPoints(14) '宽14CM Shap.Height = CentimetersToPoints(7) '高7CM End If NextEnd Sub' wdInlineShapePicture 嵌入式图片。
