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

2024-07-03 06:24| 来源: 网络整理| 查看: 265

使用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.再次点击“宏”，点击“运行”，每一个图片的大小就自动改变了！

【本文地址】

公司简介

联系我们