如何在WORD中插入图片后是图片自动调整为与设置好的单元格的高度相同（宽度按比例....

yelinghui

如何在WORD中插入图片后是图片自动调整为与设置好的单元格的高度相同（宽度按比例调整），工作需要，求大神指点

不经意的回头

插入图片后不可能会自动调整大小，这是坛子里的一位朋友提供的代码，你可以设置好尺寸后直接运行，代码来自：http://club.excelhome.net/thread-845282-1-1.html

1. Sub 批量调整图片大小()
   
2.    Dim myShape As Shape, myIns As InlineShape
   
3.    For Each myIns In ActiveDocument.InlineShapes
   
4.        h = myIns.Height
   
5.        w = myIns.Width
   
6.        myIns.Height = 40                '40为图片高，可根据需要修改
   
7.        myIns.Width = w * 40 / h
   
8.    Next
   
9. End Sub
   

复制代码