word中批量修改所有图片大小的代码

欣儿

很多时候为了排版方便，需要批量调整word中的图片大小为统一的尺寸，以下VBA代码可以帮忙我们实现。其中为您需要定义的图片高度。

1. Sub 批量设置图片大小()
   
2. 
   
3. Myheigth = 8.5    '厘米
   
4. On Error Resume Next '忽略错误
   
5. 
   
6. For Each iShape In ActiveDocument.InlineShapes
   
7.   iShape.LockAspectRatio = msoTrue   '锁定图片的纵横比
   
8.   iShape.Height = 28.345 * Myheigth  '设置图片高度为任意cm
   
9. Next
   
10. 
    
11. End Sub
    

复制代码

本文永久链接地址：https://www.jzbar.net/thread-23899-1-1.html

小兔兔

66666666666666

小兔兔

66666666666666