word用宏修改文档中图片大小

记录一下，批量改图是一个很好的思路．早就听说了word宏，一直没有用过．今天(20171207)用了下，觉得的确不错．

操作步骤：

• 1 ALT+F8　进入宏编辑模式，输入name->create
• 2 输入宏代码
• 3 宏代码中调整要设置的大小　Mywidth ，Myheigth
• 4 Ｆ5 run it

• 5 对于单个或者范围内改图大小，最好添加一个自定义的快捷键．这样改起来操作流畅．

  

---

附相关宏代码VBA,　全文档的宏代码是从网上找的，后两个是研究了一下ＭＳ文档扩展改进的．

1.　全文档范围内修改图片大小

Attribute VB_Name = "NewMacros"Sub autopic()' autopic Macro'Mywidth = 4.13Myheigth = 5.48For Each iShape In ActiveDocument.InlineShapesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub

２.　单个选中修改图片大小

Sub autopicSing()' autopicSing Macro'Mywidth = 8.13Myheigth = 5.48'For Each iShape In ActiveWindow.Selection.ShapeRangeWith Selection.InlineShapes(1).Height = 28.345 * Myheigth.Width = 28.345 * MywidthEnd With'Next iShapeEnd Sub

３.　选中范围后批量修改图片大小

Sub autopicRange()' autopicRange Macro''Mywidth = 8.13Myheigth = 5.48'For Each iShape In ActiveWindow.Selection.ShapeRangeFor Each iShape In Selection.InlineShapesiShape.LockAspectRatio = msoFalseiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub

＃＃＃添加自定义的快捷键

word版本不同，略有不同．
1.　进入word options

2.在自定义中添加快捷键