如何把word中的图片批量放大

1.如何把word中的图片批量放大

步骤一、打开word，工具-宏-宏（或者直接按Alt+F8）进入宏的界面，输入一个宏名，宏名自己起，能记住就行！

步骤二、宏名起好了，单击“创建”进入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

步骤三、返回word，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了

2.怎样批量增大WORD里的 图片

在Word窗口，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码： Sub test() Application.ScreenUpdating = False Dim Pic As InlineShape For Each Pic In ThisDocument.InlineShapes If Pic.Type = 3 Then Pic.LockAspectRatio = True Pic.Width = Pic.Width * 2 End If Next Pic Application.ScreenUpdating = True End Sub 粗体2表示大小为原来的2倍，如果是1.5倍请改为1.5。

然后在此界面直接按F5运行此宏，完成。