在Word中批量调整图片大小

youliqi

在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

业余爱好者

谢分享

{:soso_e183:}

WINCB

大哥 这个不是很好用啊 编译不过去

youliqi

WINCB 发表于 2012-3-23 11:00
大哥 这个不是很好用啊 编译不过去

编译？
在Word中，很好用啊。我的很多学生都用过啊。

word-excel

能编个在2003版中批量同高同比缩放的吗。我有个在2010中可以实现。但在03版就变形不成比例了。

youliqi

word-excel 发表于 2012-3-26 12:39
能编个在2003版中批量同高同比缩放的吗。我有个在2010中可以实现。但在03版就变形不成比例了。

在Word2003中编的，“批量调整图片大小，同高等比例缩放”

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

复制代码

word-excel

十分感谢。{:soso_e183:}

songczln2004

大哥，你的03代码，如果插入图片后，点一下旋转，代码点完没反应

youliqi

songczln2004 发表于 2012-4-19 08:20
大哥，你的03代码，如果插入图片后，点一下旋转，代码点完没反应

图片旋转后，先将其版式设置为“四周型”，再设置为“嵌入型”，最后再点代码

geryjun

这个代码很不错，收下了，谢谢。