【Word】如何批量修改word中图片的大小？宏定义修改

  

   

    

     

    
    

     

      Sub setpicsize() '设置图片大小
     
    
   

    

     

    
    

     

      Dim n '图片个数
     
    
   

    

     

    
    

     

      On Error Resume Next '忽略错误
     
    
   

    

     

    
    

     

      For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
     
    
   

    

     

    
    

     

      ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为 5cm （1cm等于28.35px）
     
    
   

    

     

    
    

     

      ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度 4cm
     
    
   

    

     

    
    

     

      Next n
     
    
   

    

     

    
    

     

      End Sub
     
    
  
 

 把上述代码全部替换原来的代码！然后点击运行（箭头所指）

文章来源: kings.blog.csdn.net，作者：人工智能博士，版权归原作者所有，如需转载，请联系作者。

原文链接：kings.blog.csdn.net/article/details/88540678