【VBA】Word批量改变图片的大小，进行排版

使用VBA能够批量修改，处理繁琐的操作，解放双手~

本文对应的软件是word2013版。

具体步骤：

1.新建一个能够用宏的文档类型：dotm。

2.一次插入所有的图片

3.点击“宏”

在弹出的窗口中输入宏名“图片排版”；

选择该宏使用的位置，此处是选择的只用于“Doc2”；

点击“创建”。

 4.在弹出的“Visual Basic”界面，粘贴下面的代码，保存（宽度和高度可以自己修改~）

Sub 图片排版()
'
' 图片排版 宏
'
'
Dim i As Integer

    For i = 1 To ActiveDocument.InlineShapes.Count
    
    With ActiveDocument.InlineShapes(i)
    
    .Height = 238 * 0.7
    
    .Width = 315 * 0.8
    
    .Borders(wdBorderTop).LineStyle = wdLineStyleSingle
    
    .Borders(wdBorderTop).LineWidth = wdLineWidth050pt
    
    .Borders(wdBorderTop).Color = wdColorAutomatic
    
    End With
    
    Next i
End Sub

 5.再次点击“宏”，点击“运行”，每一个图片的大小就自动改变了！