批量修改word中的图片

Sub picture()
      Dim i
      Dim Height, Weight
      Height = 150
      Weight = 80

      On Error Resume Next ‘忽略错误
      For i = 1 To ActiveDocument.InlineShapes.Count ‘InlineShapes类型图片
              ActiveDocument.InlineShapes(i).Height = Height ‘设置图片高度为 Height_px
             ActiveDocument.InlineShapes(i).Width = Weight ‘设置图片宽度 Weight_px
     Next i

     For i = 1 To ActiveDocument.Shapes.Count ‘Shapes类型图片
             ActiveDocument.Shapes(i).Height = Height ‘设置图片高度为 Height_px
             ActiveDocument.Shapes(i).Width = Weight ‘设置图片宽度 Weight_px
     Next i
End Sub