word中使用宏修改图片大小，图片大小相同

word中使用宏修改图片大小，图片大小相同

1、打开word中视图选项卡，选择“宏”->“输入宏名”->“创建”

2、编辑宏

输入下面代码

1. Sub FormatPics()
2.   Dim iSha As InlineShape
3.   For Each iSha In ActiveDocument.InlineShapes
4.   If iSha.Type = wdInlineShapePicture Then
5.  iSha.LockAspectRatio = msoFalse '不锁定纵横比
6.  iSha.Width = CentimetersToPoints( 5) '宽5CM
7.  iSha.Height = CentimetersToPoints( 5) '高5CM
8.   End If
9.   Next
10.   End Sub

3、保存代码，选择对应的宏运行即可，左侧为图片修改后的大小