Office2016中使用宏编程批量修改图片尺寸

                                        <pre><code>Sub 批量改变<a href="https://www.jb51.cc/tag/tupian/" target="_blank" class="keywords">图片</a>大小()

'
' 批量改变图片大小 宏
'
'
Dim isha As Inlineshape

For Each isha In ActiveDocument.Inlineshapes

If isha.Type = wdInlineshapePicture Then

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

isha.Width = CentimetersToPoints(7) '宽7cm

isha.Height = CentimetersToPoints(8) '高8cm

End If

Next

End Sub