word常用宏方法介绍

1、用宏批量调整word中图片的大小

SubFormatPics()

  Dim iSha As InlineShape

  For Each iSha In ActiveDocument.InlineShapes

    If iSha.Type = wdInlineShapePicture Then

      iSha.LockAspectRatio = msoFalse '不锁定纵横比

      iSha.Width = CentimetersToPoints(15) '宽15CM

      iSha.Height = CentimetersToPoints(25) '高25CM

    End If

  Next

EndSub

ps:只需要修改高度宽度即可