Word如何使用宏缩印照片(3)

重点来了!将一下内容复制到弹出的Microsoft Visual Basic中，注意其中Height = 216 * 0.7、Width = 300 * 0.8中的数值，如果后续执行时不能缩进到同一页面下，可以调整这部分的数字(登录PC版查看历史消息找到本文，复制这段宏命令)。

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

编辑完成后关闭，回到Word界面，点击“宏”下拉菜单(倒三角)，找到“查看宏”并单击运行，Word就会进行自动的缩放排序，多张图片很容易就缩进到一页内了，注意前面讲的，如果不能，记得调整宏中Height、Width的数值。

所属专题:

如果您觉得本文或图片不错，请把它分享给您的朋友吧！