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

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

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

2、编辑宏

输入下面代码

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

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