word批量修改图片大小教程:固定长宽+按比例缩放

  • 时间:
  • 浏览:0
  • 来源:裴雨五

  word批量修改所有图片大小要怎样办批量修改?会发现某些朋友们在使用过word的甚至不明白怎样批量修改所有图片大小,生活君绿茶生活君教生活君word批量修改所有图片大小多种方法 ,也会不会的朋友们收藏下吧,以备不时之需哈!

word批量修改所有图片大小多种方法 :

  固定长宽多种方法 :

  1、开启word,工具-宏-宏(或是或是直接把按Alt+F8)直接进入宏的界面,如生活君所示,输入这一个宏名,宏名他的起,能记住再来!

 



 

  2、宏名起再来,单击“创建”直接进入Visual Basic 编辑器,输入具体信息代码并保存

  Sub setpicsize() '位置设置所有图片大小

  Dim n '所有图片个数

  On Error Resume Next '忽略错误

  Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型所有图片

  ActiveDocument.InlineShapes(n).Height = 400 '位置设置所有图片整体高度为 400px

  ActiveDocument.InlineShapes(n).Width = 300 '位置设置所有图片宽度 300px

  Nextn

  Forn = 1 ToActiveDocument.Shapes.Count 'Shapes类型所有图片

  ActiveDocument.Shapes(n).Height = 400 '位置设置所有图片整体高度为 400px

  ActiveDocument.Shapes(n).Width = 300 '位置设置所有图片宽度 300px

  Nextn

  End Sub

 



  3、返回word,工具-宏-宏(或是或是直接把按Alt+F8),之后直接进入宏的界面,不选择我说编辑这样宏,并单击“运行”按钮,就或是或是了!(所有图片多时,甚至会花某些时间里)

  按比例缩放多种方法

  这多数要所说的把word之之中有所有图片按比例缩放!

  具体信息后续操作同上,明白代码多数稍做修改,代码具体信息:

  Sub setpicsize() '位置设置所有图片大小

  Dim n '所有图片个数

  Dimpicwidth

  Dimpicheight

  On Error Resume Next '忽略错误

  For n = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型所有图片

  picheight = ActiveDocument.InlineShapes(n).Height

  picwidth = ActiveDocument.InlineShapes(n).Width

  ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '位置设置整体高度为1.1倍

  ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '位置设置宽度为1.1倍

  Nextn

  For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型所有图片

  picheight = ActiveDocument.Shapes(n).Height

  picwidth = ActiveDocument.Shapes(n).Width

  ActiveDocument.Shapes(n).Height = picheight * 1.1 '位置设置整体高度为1.1倍

  ActiveDocument.Shapes(n).Width = picwidth * 1.1 '位置设置宽度为1.1倍

  Nextn

  End Sub

  若还想使所有人所有图片居中对齐,可在循环中中途加入生活君的语句:

  ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter

  ‘左对齐:wdAlignParagraphLeft

  切记:这儿的Shapes(InlineShapes)不明白是指所有图片,也包含其它在,自选图形、任意多边形、OLE 对象、ActiveX 控件、所有图片等。

  再来!word批量修改所有图片大小的多种方法 甚至这一个的了,这两种多种方法 各有千秋,生活君或是或是参照 所有人情况自行不选择哦!

绿茶生活君猜你还生活君喜欢 :

word未保存怎样完全恢复?word文档未保存完全恢复多种方法 汇总

word文档怎样画线条?word快速画出5种线条小技巧