在Word中批量调整图片大小
Sub 批量调整图片大小()
Dim myShape As Shape, myIns As InlineShape
For Each myIns In ActiveDocument.InlineShapes
myIns.Height = myIns.Height * 0.7                ‘0.7为原图片的70%,可根据需要修改
myIns.Width = myIns.Width * 0.7
Next
End Sub

http://club.excelhome.net/thread-845282-1-1.html

发表评论

电子邮件地址不会被公开。 必填项已用*标注

This site uses Akismet to reduce spam. Learn how your comment data is processed.