word文档自动调节图片大小-宏制作

word文档自动调节图片大小-宏制作

1. 首先创建一个空白word文档

当然也可以是任意word文档，这里方便演示，所以创建一个空白word文档。

2. 在菜单列表找到【视图】- 【宏】

3. 点击宏，录制一个宏

4. 录制宏起个名字，然后确定

5. 再次打开【宏】-【停止录制】-【查看宏】

6. 选中刚才录制的那个宏，然后编辑

7. 将下面代码替换到编辑框里

Sub wordImage()
'
' wordImage 宏 word图片自动调节大小
'
'
Dim n
On Error Resume Next
For n = 1 To ActiveDocument.InlineShapes.Count
'
' 高宽可以根据需要调节
'
ActiveDocument.InlineShapes(n).Height = 9.26 * 28.35
ActiveDocument.InlineShapes(n).Width = 4.23 * 28.35
Next n
End Sub

完成后，点击保存按钮，关闭退出

8. 操作

下面我们将一些图片粘贴到文档，这时是大小不一排列的，那么我们运行一下宏，便可以让这些图片规规矩矩的排列好了。

进行运行我们上面写的宏

【宏】-【查看宏】-【运行】

便按照我们设置好的高宽进行排列啦，是不是很方便