在world中批量调整图片的大小

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