这个要用到VBA的,打开你的文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的
Sub Macro()
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = iShape.Height * 1.5
iShape.Width = iShape.Width * 1.5
Next iShape
End Sub
按F5运行一次就可以了。
本文介绍如何通过VBA脚本自动调整Word文档内对象的高度和宽度,提高工作效率。
这个要用到VBA的,打开你的文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的
Sub Macro()
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = iShape.Height * 1.5
iShape.Width = iShape.Width * 1.5
Next iShape
End Sub
按F5运行一次就可以了。
4882

被折叠的 条评论
为什么被折叠?
