怎么把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），再次进入宏的界面，选择适才编辑好的宏，并单击“运行”按钮，就可以了

在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运行此宏，完成。